7.3.2 (d x)^m (a+b arctanh(c x^n))^p.nb

(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    286942,       5779]
NotebookOptionsPosition[    279278,       5580]
NotebookOutlinePosition[    281024,       5634]
CellTagsIndexPosition[    280981,       5631]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 StyleBox[
  RowBox[{Cell[TextData[StyleBox["Rules for integrands of the form",
    FontFamily->"Arial",
    FontSize->16]], "None"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"d", " ", "x"}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"ArcTanh", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"]}],
  FontSize->16]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, {3.5233155055329347`*^9, 3.523315506402936*^9}, {
   3.523318726949605*^9, 3.5233187276796064`*^9}, {3.523920400879534*^9, 
   3.5239204094439487`*^9}, 3.52392096260852*^9, 3.523921038171853*^9, 
   3.5340477459008017`*^9, 3.5340515540554085`*^9, {3.536542511100503*^9, 
   3.53654251626051*^9}, {3.536775961244521*^9, 3.5367759616145215`*^9}, {
   3.544373142375139*^9, 3.5443731599851637`*^9}, {3.5721095751430073`*^9, 
   3.5721095751430073`*^9}, {3.57578648209792*^9, 3.575786503859958*^9}, 
   3.575786540270422*^9, {3.5757866379421935`*^9, 3.5757866609522343`*^9}, 
   3.746047470037391*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["1.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox["x", "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"ArcTanh", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{"p", "\[Element]", 
      SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.5505953688729563`*^9, 3.5505953726861744`*^9}, {
   3.550619508681926*^9, 3.5506195174954305`*^9}, {3.551326301250945*^9, 
   3.551326301841979*^9}, {3.552150760656293*^9, 3.552150761436294*^9}, 
   3.5521509768882723`*^9, {3.5521510341403728`*^9, 3.5521510486171985`*^9}, {
   3.5521511118909097`*^9, 3.5521511159313164`*^9}, 3.55215165895267*^9, 
   3.552151705315952*^9, 3.553532182175474*^9, {3.553559669357978*^9, 
   3.553559705888029*^9}, {3.5535602318087654`*^9, 3.5535602417087793`*^9}, 
   3.553617594461242*^9, 3.553617658031331*^9, {3.553617950531741*^9, 
   3.5536179652017612`*^9}, 3.5557731793147464`*^9, 3.5562986064709735`*^9, 
   3.5860254201973715`*^9, {3.5863143717219267`*^9, 3.586314378261936*^9}, {
   3.5863144650720577`*^9, 3.5863144655220585`*^9}, {3.586315315623248*^9, 
   3.58631532374326*^9}, {3.5863169808580923`*^9, 3.586316981018092*^9}, 
   3.5863181380149755`*^9, 3.5864568794445467`*^9, 3.620161188231187*^9, {
   3.7190277661204224`*^9, 3.7190277698406353`*^9}, {3.719027845689973*^9, 
   3.719027864583054*^9}, {3.719028722474122*^9, 3.719028722685135*^9}, {
   3.7190290635836325`*^9, 3.7190290654627404`*^9}, 3.7190292364475203`*^9, 
   3.7190293687900896`*^9, {3.7190790080071406`*^9, 3.719079014212496*^9}, 
   3.736567442058447*^9, 3.7460482063735075`*^9, 3.7460484168775473`*^9, {
   3.74604949968548*^9, 3.7460495076939383`*^9}, {3.746050749684976*^9, 
   3.7460507499569917`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"ArcTanh", "[", 
           RowBox[{"c", " ", 
            SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], "x"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"p", "\[Element]", 
       SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.5505953688729563`*^9, 3.5505953726861744`*^9}, {
   3.550619508681926*^9, 3.5506195174954305`*^9}, {3.551326301250945*^9, 
   3.551326301841979*^9}, {3.552150760656293*^9, 3.552150761436294*^9}, 
   3.5521509768882723`*^9, {3.5521510341403728`*^9, 3.5521510486171985`*^9}, {
   3.5521511118909097`*^9, 3.5521511159313164`*^9}, 3.55215165895267*^9, 
   3.552151705315952*^9, 3.553532182175474*^9, {3.553559669357978*^9, 
   3.553559705888029*^9}, {3.5535602318087654`*^9, 3.5535602417087793`*^9}, 
   3.553617594461242*^9, 3.553617658031331*^9, {3.553617950531741*^9, 
   3.5536179652017612`*^9}, 3.5557731793147464`*^9, 3.5562986064709735`*^9, 
   3.5860254201973715`*^9, {3.5863143717219267`*^9, 3.586314378261936*^9}, {
   3.5863144650720577`*^9, 3.5863144655220585`*^9}, {3.586315315623248*^9, 
   3.58631532374326*^9}, {3.5863169808580923`*^9, 3.586316981018092*^9}, 
   3.5863181380149755`*^9, 3.5864568794445467`*^9, 3.620161188231187*^9, {
   3.7190277661204224`*^9, 3.7190277698406353`*^9}, {3.719027845689973*^9, 
   3.719027864583054*^9}, {3.719028722474122*^9, 3.719028722685135*^9}, {
   3.7190290635836325`*^9, 3.7190290654627404`*^9}, 3.7190292364475203`*^9, 
   3.7190293687900896`*^9, {3.7190790080071406`*^9, 3.719079014212496*^9}, 
   3.736567442058447*^9, 3.7460482063735075`*^9, 3.7460484168775473`*^9, {
   3.7460507512290645`*^9, 3.7460507536612034`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"ArcTanh", "[", 
           RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], "p"], "x"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"p", "\[Element]", 
       SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.5505953688729563`*^9, 3.5505953726861744`*^9}, {
   3.550619508681926*^9, 3.5506195174954305`*^9}, {3.551326301250945*^9, 
   3.551326301841979*^9}, {3.552150760656293*^9, 3.552150761436294*^9}, 
   3.5521509768882723`*^9, {3.5521510341403728`*^9, 3.5521510486171985`*^9}, {
   3.5521511118909097`*^9, 3.5521511159313164`*^9}, 3.55215165895267*^9, 
   3.552151705315952*^9, 3.553532182175474*^9, {3.553559669357978*^9, 
   3.553559705888029*^9}, {3.5535602318087654`*^9, 3.5535602417087793`*^9}, 
   3.553617594461242*^9, 3.553617658031331*^9, {3.553617950531741*^9, 
   3.5536179652017612`*^9}, 3.5557731793147464`*^9, 3.5562986064709735`*^9, 
   3.5860254201973715`*^9, {3.5863143717219267`*^9, 3.586314378261936*^9}, {
   3.5863144650720577`*^9, 3.5863144655220585`*^9}, {3.586315315623248*^9, 
   3.58631532374326*^9}, {3.5863169808580923`*^9, 3.586316981018092*^9}, 
   3.5863181380149755`*^9, 3.5864568794445467`*^9, 3.620161188231187*^9, {
   3.7190277661204224`*^9, 3.7190277698406353`*^9}, {3.719027845689973*^9, 
   3.719027864583054*^9}, {3.719028722474122*^9, 3.719028722685135*^9}, {
   3.7190290635836325`*^9, 3.7190290654627404`*^9}, 3.7190292364475203`*^9, 
   3.7190293687900896`*^9, {3.7190790080071406`*^9, 3.719079014212496*^9}, 
   3.736567442058447*^9, 3.746048194420823*^9, 3.7460484300453005`*^9, 
   3.7460507629247336`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"ArcTanh", "[", 
         RowBox[{"c", " ", "x"}], "]"}]}]}], "x"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.550770598144562*^9, 3.550770659629079*^9}, {3.5507707252908344`*^9, 
   3.5507707474461017`*^9}, 3.5507880023630266`*^9, {3.5508017696214375`*^9, 
   3.5508017788269644`*^9}, {3.5508018116158395`*^9, 3.5508018116158395`*^9}, 
   3.5508018976437597`*^9, {3.5508021384015307`*^9, 3.550802155115487*^9}, {
   3.5508022151019173`*^9, 3.5508022151019173`*^9}, {3.550802487106476*^9, 
   3.5508025179152374`*^9}, {3.5508029261175857`*^9, 
   3.5508029342300496`*^9}, {3.5521511708590136`*^9, 3.5521511712334137`*^9}, 
   3.552151666269083*^9, {3.5535324250863676`*^9, 3.553532441643315*^9}, {
   3.553532476791325*^9, 3.553532477502366*^9}, {3.5535325810722895`*^9, 
   3.5535325810722895`*^9}, {3.553534924419321*^9, 3.5535349316017323`*^9}, {
   3.5535597570381007`*^9, 3.553559765608113*^9}, {3.553559900728302*^9, 
   3.55355990606831*^9}, 3.553560247968788*^9, {3.553560284118839*^9, 
   3.553560284268839*^9}, 3.553617750921461*^9, {3.5536177847415085`*^9, 
   3.553617790541517*^9}, 3.5536180162118325`*^9, {3.5536181502920203`*^9, 
   3.553618158782032*^9}, {3.553618200642091*^9, 3.553618200642091*^9}, {
   3.5536187940529213`*^9, 3.5536187975029263`*^9}, {3.553619055003287*^9, 
   3.5536190657833023`*^9}, 3.5536193019636326`*^9, 3.5562986279710035`*^9, 
   3.5851562208462715`*^9, 3.586025420227371*^9, {3.586025963720658*^9, 
   3.5860259664481616`*^9}, 3.5863150957629404`*^9, 3.5863155128035245`*^9, 
   3.586318138024976*^9, 3.6201611887862186`*^9, 3.622840191580227*^9, {
   3.622840305989771*^9, 3.622840306176781*^9}, 3.7190278484141293`*^9, 
   3.7190282501031046`*^9, {3.7202179773617506`*^9, 3.7202179789498415`*^9}, 
   3.736567443618536*^9, 3.746048195260872*^9, {3.746048432157421*^9, 
   3.7460484417009673`*^9}, 3.7460507636047726`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection"],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"ArcTanh", "[", "z", "]"}], "\[Equal]", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"Log", "[", 
      RowBox[{"1", "+", "z"}], "]"}]}], "-", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"Log", "[", 
      RowBox[{"1", "-", "z"}], "]"}]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.479664431619528*^9, 3.4796644842351856`*^9, {3.4796867203243876`*^9, 
   3.4796867203243876`*^9}, {3.479686900964134*^9, 3.479686904699506*^9}, {
   3.494000873321659*^9, 3.494000873321659*^9}, {3.4940016544041567`*^9, 
   3.4940016544041567`*^9}, {3.5536241070903597`*^9, 3.5536241083003616`*^9}, 
   3.5863181380349755`*^9, {3.586318380485315*^9, 3.586318380485315*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"ArcCoth", "[", "z", "]"}], "\[Equal]", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"Log", "[", 
      RowBox[{"1", "+", 
       FractionBox["1", "z"]}], "]"}]}], "-", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"Log", "[", 
      RowBox[{"1", "-", 
       FractionBox["1", "z"]}], "]"}]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.479664431619528*^9, 3.4796644842351856`*^9, {3.4796867203243876`*^9, 
   3.4796867203243876`*^9}, {3.479686900964134*^9, 3.479686904699506*^9}, {
   3.494000873321659*^9, 3.494000873321659*^9}, {3.4940016544041567`*^9, 
   3.4940016544041567`*^9}, {3.5536241070903597`*^9, 
   3.5536241083003616`*^9}, {3.5863152562831655`*^9, 3.586315268183182*^9}, 
   3.5863181478349895`*^9, {3.5863183864253235`*^9, 3.586318402165345*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050798897104`*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"ArcTanh", "[", 
         RowBox[{"c", " ", "x"}], "]"}]}]}], "x"], 
     RowBox[{"\[DifferentialD]", 
      RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "a"}]}], " ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       FractionBox["1", "x"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "+", 
   RowBox[{
    FractionBox["b", "2"], 
    RowBox[{"\[Integral]", 
     RowBox[{
      FractionBox[
       RowBox[{"Log", "[", 
        RowBox[{"1", "+", 
         RowBox[{"c", " ", "x"}]}], "]"}], "x"], 
      RowBox[{"\[DifferentialD]", "x"}]}]}]}], "-", 
   RowBox[{
    FractionBox["b", "2"], 
    RowBox[{"\[Integral]", 
     RowBox[{
      FractionBox[
       RowBox[{"Log", "[", 
        RowBox[{"1", "-", 
         RowBox[{"c", " ", "x"}]}], "]"}], "x"], 
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"  ", 
  RowBox[{
   RowBox[{
    RowBox[{"\[LongRightArrow]", "  ", "a"}], " ", 
    RowBox[{"Log", "[", "x", "]"}]}], "-", 
   RowBox[{
    FractionBox["b", "2"], " ", 
    RowBox[{"PolyLog", "[", 
     RowBox[{"2", ",", 
      RowBox[{
       RowBox[{"-", "c"}], " ", "x"}]}], "]"}]}], "+", 
   RowBox[{
    FractionBox["b", "2"], " ", 
    RowBox[{"PolyLog", "[", 
     RowBox[{"2", ",", 
      RowBox[{"c", " ", "x"}]}], "]"}]}]}]}]}], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579730125074`*^9, 3.479658002374728*^9}, 
   3.479658039448037*^9, 3.479661193793763*^9, {3.4796615158368387`*^9, 
   3.479661531599504*^9}, 3.4796867203243876`*^9, {3.4796869232261457`*^9, 
   3.4796869451176243`*^9}, 3.49400087334066*^9, {3.494001703554968*^9, 
   3.4940017521417475`*^9}, {3.553619073463313*^9, 3.5536191000633497`*^9}, {
   3.5536191349333987`*^9, 3.5536191405434065`*^9}, 3.586025420227371*^9, {
   3.586025985338189*^9, 3.586026044263274*^9}, {3.5860260822508287`*^9, 
   3.5860260840833316`*^9}, 3.5863151150129676`*^9, {3.5863152229231186`*^9, 
   3.5863152325831323`*^9}, {3.586315355533304*^9, 3.586315369863324*^9}, 
   3.5863181380449753`*^9, {3.586318456505421*^9, 3.586318478995453*^9}, {
   3.622840222179977*^9, 3.6228402327145796`*^9}, 3.7190282537733145`*^9, {
   3.7190283774473877`*^9, 3.7190283961464577`*^9}, {3.720217820905802*^9, 
   3.7202178575668983`*^9}, {3.7202178968581457`*^9, 3.720217913509098*^9}, {
   3.720218004713315*^9, 3.7202180130507917`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"ArcTanh", "[", 
         RowBox[{"c_.", "*", "x_"}], "]"}]}]}], ")"}], "/", "x_"}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"a", "*", 
     RowBox[{"Log", "[", "x", "]"}]}], " ", "-", " ", 
    RowBox[{
     RowBox[{"b", "/", "2"}], "*", 
     RowBox[{"PolyLog", "[", 
      RowBox[{"2", ",", 
       RowBox[{
        RowBox[{"-", "c"}], "*", "x"}]}], "]"}]}], " ", "+", " ", 
    RowBox[{
     RowBox[{"b", "/", "2"}], "*", 
     RowBox[{"PolyLog", "[", 
      RowBox[{"2", ",", 
       RowBox[{"c", "*", "x"}]}], "]"}]}]}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{
  3.494000873350661*^9, 3.4940016721911745`*^9, {3.5487325654952307`*^9, 
   3.548732566797305*^9}, {3.548732926805896*^9, 3.548732930704119*^9}, {
   3.553619186233471*^9, 3.553619196143484*^9}, {3.553619232363535*^9, 
   3.5536192373135424`*^9}, 3.5860256583552165`*^9, {3.58602612458339*^9, 
   3.586026153108431*^9}, {3.5860262108010144`*^9, 3.5860262179060245`*^9}, {
   3.5863151675930414`*^9, 3.586315204843093*^9}, {3.58631540260337*^9, 
   3.5863154034933715`*^9}, {3.5863154382734203`*^9, 3.5863154402434225`*^9}, 
   3.5863181380549755`*^9, {3.586318511435498*^9, 3.586318539885538*^9}, {
   3.622840248610489*^9, 3.622840277899164*^9}, {3.7190284225439672`*^9, 
   3.7190284402869825`*^9}, 3.720160278965929*^9, 3.720200507514532*^9, 
   3.720218053481104*^9, 3.7202242050373526`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"ArcCoth", "[", 
         RowBox[{"c_.", "*", "x_"}], "]"}]}]}], ")"}], "/", "x_"}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"a", "*", 
     RowBox[{"Log", "[", "x", "]"}]}], " ", "+", " ", 
    RowBox[{
     RowBox[{"b", "/", "2"}], "*", 
     RowBox[{"PolyLog", "[", 
      RowBox[{"2", ",", 
       RowBox[{
        RowBox[{"-", "1"}], "/", 
        RowBox[{"(", 
         RowBox[{"c", "*", "x"}], ")"}]}]}], "]"}]}], " ", "-", " ", 
    RowBox[{
     RowBox[{"b", "/", "2"}], "*", 
     RowBox[{"PolyLog", "[", 
      RowBox[{"2", ",", 
       RowBox[{"1", "/", 
        RowBox[{"(", 
         RowBox[{"c", "*", "x"}], ")"}]}]}], "]"}]}]}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{
  3.494000873350661*^9, 3.4940016721911745`*^9, {3.5487325654952307`*^9, 
   3.548732566797305*^9}, {3.548732926805896*^9, 3.548732930704119*^9}, {
   3.553619186233471*^9, 3.553619196143484*^9}, {3.553619232363535*^9, 
   3.5536192373135424`*^9}, 3.5860256583552165`*^9, {3.58602612458339*^9, 
   3.586026153108431*^9}, {3.5860262108010144`*^9, 3.5860262179060245`*^9}, {
   3.5863151675930414`*^9, 3.586315204843093*^9}, {3.58631540260337*^9, 
   3.5863154034933715`*^9}, {3.5863154382734203`*^9, 3.5863154402434225`*^9}, 
   3.5863181380549755`*^9, {3.586318511435498*^9, 3.586318539885538*^9}, {
   3.622840248610489*^9, 3.622840298376335*^9}, {3.719028449003481*^9, 
   3.7190284680555706`*^9}, 3.7201603067265167`*^9, 3.7202005219083557`*^9, 
   3.720218122716064*^9, 3.7202242075294952`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"ArcTanh", "[", 
           RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], "p"], "x"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"p", "-", "1"}], "\[Element]", 
       SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.550770598144562*^9, 3.550770659629079*^9}, {3.5507707252908344`*^9, 
   3.5507707474461017`*^9}, 3.5507880023630266`*^9, {3.5508017696214375`*^9, 
   3.5508017788269644`*^9}, {3.5508018116158395`*^9, 3.5508018116158395`*^9}, 
   3.5508018976437597`*^9, {3.5508021384015307`*^9, 3.550802155115487*^9}, {
   3.5508022151019173`*^9, 3.5508022151019173`*^9}, {3.550802487106476*^9, 
   3.5508025179152374`*^9}, {3.5508029261175857`*^9, 
   3.5508029342300496`*^9}, {3.5521511708590136`*^9, 3.5521511712334137`*^9}, 
   3.552151666269083*^9, {3.5535324250863676`*^9, 3.553532441643315*^9}, {
   3.553532476791325*^9, 3.553532477502366*^9}, {3.5535325810722895`*^9, 
   3.5535325810722895`*^9}, {3.553534924419321*^9, 3.5535349316017323`*^9}, {
   3.5535597570381007`*^9, 3.553559765608113*^9}, {3.553559900728302*^9, 
   3.55355990606831*^9}, 3.553560247968788*^9, {3.553560284118839*^9, 
   3.553560284268839*^9}, 3.553617750921461*^9, {3.5536177847415085`*^9, 
   3.553617790541517*^9}, 3.5536180162118325`*^9, {3.5536181502920203`*^9, 
   3.553618158782032*^9}, {3.553618200642091*^9, 3.553618200642091*^9}, {
   3.5536187940529213`*^9, 3.5536187975029263`*^9}, {3.5536190562932887`*^9, 
   3.553619059143293*^9}, {3.55577497216809*^9, 3.5557749735780916`*^9}, 
   3.5562986340610123`*^9, {3.5851540460779514`*^9, 3.5851540460779514`*^9}, {
   3.585156115967287*^9, 3.585156143594936*^9}, 3.5851562214234724`*^9, 
   3.5860254202373714`*^9, 3.5861106636710367`*^9, {3.586318752735836*^9, 
   3.586318753595837*^9}, 3.620161190430313*^9, {3.7190275410575495`*^9, 
   3.7190275614987183`*^9}, 3.7190287537149096`*^9, {3.7190292198615713`*^9, 
   3.7190292202115917`*^9}, 3.736567444584591*^9, 3.7460481958609056`*^9, 
   3.746048443133049*^9, 3.746050764156804*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{{3.493099207935931*^9, 3.4930992149659414`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   FractionBox["1", "x"], "\[Equal]", 
   RowBox[{"2", 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     RowBox[{"ArcTanh", "[", 
      RowBox[{"1", "-", 
       FractionBox["2", 
        RowBox[{"1", "-", 
         RowBox[{"c", " ", "x"}]}]]}], "]"}]}]}]}]],
  CellChangeTimes->{{3.586026257841082*^9, 3.586026303596148*^9}}]
}], "Subsubsection",
 CellChangeTimes->{{3.493099207935931*^9, 3.4930992149659414`*^9}, {
  3.5860263115261593`*^9, 3.5860263196186714`*^9}, {3.5860557068553047`*^9, 
  3.5860557068553047`*^9}, {3.586111771362588*^9, 3.586111771362588*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"p", "-", "1"}], "\[Element]", 
   SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, {
   3.493098879405472*^9, 3.493098884745479*^9}, {3.493099207935931*^9, 
   3.4930992149659414`*^9}, 3.4930996737265835`*^9, 3.493099827186798*^9, {
   3.719027544234731*^9, 3.719027544235731*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], "p"], "x"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{
     "x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", "2"}]}], 
    " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"ArcTanh", "[", 
         RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], "p"], " ", 
    RowBox[{"ArcTanh", "[", 
     RowBox[{"1", "-", 
      FractionBox["2", 
       RowBox[{"1", "-", 
        RowBox[{"c", " ", "x"}]}]]}], "]"}]}]}], "-", 
  RowBox[{"2", "b", " ", "c", " ", "p", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"ArcTanh", "[", 
            RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], 
        RowBox[{"p", "-", "1"}]], " ", 
       RowBox[{"ArcTanh", "[", 
        RowBox[{"1", "-", 
         FractionBox["2", 
          RowBox[{"1", "-", 
           RowBox[{"c", " ", "x"}]}]]}], "]"}]}], 
      RowBox[{"1", "-", 
       RowBox[{
        SuperscriptBox["c", "2"], 
        SuperscriptBox["x", "2"]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellChangeTimes->{{3.493098332554706*^9, 3.4930984922049294`*^9}, {
   3.4930985835950575`*^9, 3.4930986777351894`*^9}, {3.4930988533254347`*^9, 
   3.4930988578754416`*^9}, {3.493099207935931*^9, 3.4930992149659414`*^9}, {
   3.4930993574561405`*^9, 3.493099400886202*^9}, {3.493099526816378*^9, 
   3.49309953534639*^9}, 3.4931705981281786`*^9, {3.493170768098417*^9, 
   3.4931708122284784`*^9}, {3.494013179298343*^9, 3.4940132717176294`*^9}, {
   3.4940167360667787`*^9, 3.494016736987831*^9}, {3.494016997482731*^9, 
   3.4940169979477572`*^9}, {3.553618588562634*^9, 3.553618601552652*^9}, {
   3.5852097202839603`*^9, 3.585209729863973*^9}, {3.5860254202373714`*^9, 
   3.5860254202473717`*^9}, {3.586026341328703*^9, 3.5860263530137196`*^9}, {
   3.586055711254512*^9, 3.586055714124917*^9}, {3.586110663681037*^9, 
   3.5861106636910367`*^9}, {3.586111433842115*^9, 3.5861114521921406`*^9}, 
   3.586111502612211*^9, 3.5861115683523035`*^9, {3.719027548496975*^9, 
   3.7190275552003584`*^9}, 3.7376621905586863`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c_.", "*", "x_"}], "]"}]}]}], ")"}], "^", "p_"}], "/", 
     "x_"}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"2", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c", "*", "x"}], "]"}]}]}], ")"}], "^", "p"}], "*", 
     RowBox[{"ArcTanh", "[", 
      RowBox[{"1", "-", 
       RowBox[{"2", "/", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"c", "*", "x"}]}], ")"}]}]}], "]"}]}], " ", "-", "\n", "  ", 
    RowBox[{"2", "*", "b", "*", "c", "*", "p", "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"ArcTanh", "[", 
             RowBox[{"c", "*", "x"}], "]"}]}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"p", "-", "1"}], ")"}]}], "*", 
        RowBox[{
         RowBox[{"ArcTanh", "[", 
          RowBox[{"1", "-", 
           RowBox[{"2", "/", 
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{"c", "*", "x"}]}], ")"}]}]}], "]"}], "/", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{
            RowBox[{"c", "^", "2"}], "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}]}]}], ",", "x"}], "]"}]}]}], 
   " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"p", ",", "1"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.4928302625720215`*^9, 3.4928303000920744`*^9}, {
   3.4928305645624447`*^9, 3.4928305746224585`*^9}, {3.4930994731463027`*^9, 
   3.4930995793864517`*^9}, {3.494000871289543*^9, 3.494000871296543*^9}, {
   3.4940178019527435`*^9, 3.4940178274122*^9}, 3.5487323946014557`*^9, 
   3.5487326480149503`*^9, 3.5851544095366898`*^9, {3.585155517940237*^9, 
   3.585155518985439*^9}, {3.5851561195084934`*^9, 3.58515612893091*^9}, {
   3.5860255404975452`*^9, 3.5860255405075455`*^9}, 3.5860256583652163`*^9, {
   3.5860263966912823`*^9, 3.586026423146321*^9}, {3.5860557709702168`*^9, 
   3.5860557731542206`*^9}, {3.5861106637010365`*^9, 3.586110663721037*^9}, 
   3.5861109930214977`*^9, {3.5861117106625023`*^9, 3.586111721562518*^9}, 
   3.7152330940893335`*^9, {3.7190275870121775`*^9, 3.7190275975867825`*^9}, 
   3.720160281846094*^9, 3.720200507523533*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"ArcCoth", "[", 
          RowBox[{"c_.", "*", "x_"}], "]"}]}]}], ")"}], "^", "p_"}], "/", 
     "x_"}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"2", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{"ArcCoth", "[", 
          RowBox[{"c", "*", "x"}], "]"}]}]}], ")"}], "^", "p"}], "*", 
     RowBox[{"ArcCoth", "[", 
      RowBox[{"1", "-", 
       RowBox[{"2", "/", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"c", "*", "x"}]}], ")"}]}]}], "]"}]}], " ", "-", "\n", "  ", 
    RowBox[{"2", "*", "b", "*", "c", "*", "p", "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"ArcCoth", "[", 
             RowBox[{"c", "*", "x"}], "]"}]}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"p", "-", "1"}], ")"}]}], "*", 
        RowBox[{
         RowBox[{"ArcCoth", "[", 
          RowBox[{"1", "-", 
           RowBox[{"2", "/", 
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{"c", "*", "x"}]}], ")"}]}]}], "]"}], "/", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{
            RowBox[{"c", "^", "2"}], "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}]}]}], ",", "x"}], "]"}]}]}], 
   " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"p", ",", "1"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.4928302625720215`*^9, 3.4928303000920744`*^9}, {
   3.4928305645624447`*^9, 3.4928305746224585`*^9}, {3.4930994731463027`*^9, 
   3.4930995793864517`*^9}, {3.494000871289543*^9, 3.494000871296543*^9}, {
   3.4940178019527435`*^9, 3.4940178274122*^9}, {3.494043967307788*^9, 
   3.4940439673137884`*^9}, {3.4940463693191752`*^9, 3.494046369618192*^9}, 
   3.5487315839885845`*^9, 3.5487319240720367`*^9, 3.585154414731499*^9, {
   3.5851555214346433`*^9, 3.585155521933844*^9}, {3.5851561233461003`*^9, 
   3.5851561309277134`*^9}, 3.5860256860752563`*^9, {3.586025865730516*^9, 
   3.5860258657405157`*^9}, {3.5860264064362965`*^9, 
   3.5860264188638144`*^9}, {3.5860557738094215`*^9, 3.586055774495823*^9}, {
   3.586110700801089*^9, 3.586110700821089*^9}, 3.586110993031498*^9, {
   3.58611173027253*^9, 3.5861117471725535`*^9}, 3.715233094108334*^9, {
   3.719027599952918*^9, 3.7190276101235*^9}, 3.7201603067385178`*^9, 
   3.720200521916356*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"ArcTanh", "[", 
           RowBox[{"c", " ", 
            SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], "x"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"p", "\[Element]", 
       SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.550770598144562*^9, 3.550770659629079*^9}, {3.5507707252908344`*^9, 
   3.5507707474461017`*^9}, 3.5507880023630266`*^9, {3.5508017696214375`*^9, 
   3.5508017788269644`*^9}, {3.5508018116158395`*^9, 3.5508018116158395`*^9}, 
   3.5508018976437597`*^9, {3.5508021384015307`*^9, 3.550802155115487*^9}, {
   3.5508022151019173`*^9, 3.5508022151019173`*^9}, {3.550802487106476*^9, 
   3.5508025179152374`*^9}, {3.5508029261175857`*^9, 
   3.5508029342300496`*^9}, {3.5521511708590136`*^9, 3.5521511712334137`*^9}, 
   3.552151666269083*^9, {3.5535324250863676`*^9, 3.553532441643315*^9}, {
   3.553532476791325*^9, 3.553532477502366*^9}, {3.5535325810722895`*^9, 
   3.5535325810722895`*^9}, {3.553534924419321*^9, 3.5535349316017323`*^9}, {
   3.5535597570381007`*^9, 3.553559765608113*^9}, {3.553559900728302*^9, 
   3.55355990606831*^9}, 3.553560247968788*^9, {3.553560284118839*^9, 
   3.553560284268839*^9}, 3.553617750921461*^9, {3.5536177847415085`*^9, 
   3.553617790541517*^9}, 3.5536180162118325`*^9, {3.5536181502920203`*^9, 
   3.553618158782032*^9}, {3.553618200642091*^9, 3.553618200642091*^9}, {
   3.5536187940529213`*^9, 3.5536187975029263`*^9}, {3.5536190562932887`*^9, 
   3.553619059143293*^9}, {3.55577497216809*^9, 3.5557749735780916`*^9}, 
   3.5562986340610123`*^9, {3.5851540460779514`*^9, 3.5851540460779514`*^9}, {
   3.585156115967287*^9, 3.585156143594936*^9}, 3.5851562214234724`*^9, 
   3.5860254202373714`*^9, 3.5861106636710367`*^9, {3.586318752735836*^9, 
   3.586318753595837*^9}, 3.620161190430313*^9, {3.7190275410575495`*^9, 
   3.7190275614987183`*^9}, 3.7190287537149096`*^9, {3.7190292198615713`*^9, 
   3.7190292202115917`*^9}, {3.7190790616792107`*^9, 
   3.7190790806342945`*^9}, {3.7366235229739456`*^9, 3.736623526741161*^9}, 
   3.7366309939822626`*^9, {3.7458640007970657`*^9, 3.745864004988306*^9}, {
   3.745864160742214*^9, 3.745864162574319*^9}, {3.7458642593678555`*^9, 
   3.7458642593678555`*^9}, 3.7458644471095934`*^9, 3.7458671289739876`*^9, {
   3.7458949668752165`*^9, 3.7458949668752165`*^9}, {3.7459078367493315`*^9, 
   3.7459078367493315`*^9}, {3.746048197837019*^9, 3.7460481981570373`*^9}, {
   3.74604823370407*^9, 3.746048246197785*^9}, 3.7460484449411526`*^9, 
   3.7460507646528325`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by substitution", "Subsubsection",
 CellChangeTimes->{{3.493099207935931*^9, 3.4930992149659414`*^9}, {
  3.7190790922529593`*^9, 3.7190790947771034`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   FractionBox[
    RowBox[{"F", "[", 
     SuperscriptBox["x", "n"], "]"}], "x"], "\[Equal]", 
   RowBox[{
    FractionBox["1", "n"], " ", 
    RowBox[{"Subst", "[", 
     RowBox[{
      FractionBox[
       RowBox[{"F", "[", "x", "]"}], "x"], ",", "x", ",", 
      SuperscriptBox["x", "n"]}], "]"}], " ", 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     SuperscriptBox["x", "n"]}]}]}]], "Input",
  CellChangeTimes->{{3.496607156053342*^9, 3.4966071870033855`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.496441803031353*^9, 3.4965396318089237`*^9, {3.4966002562016735`*^9, 
   3.4966002624716825`*^9}, 3.496600707442305*^9, 3.4966008475725017`*^9, {
   3.4966070255131593`*^9, 3.496607032413169*^9}, {3.496607078713234*^9, 
   3.4966070808932366`*^9}, {3.4966071978234005`*^9, 3.496607200693404*^9}, {
   3.4966322361067057`*^9, 3.4966322383967094`*^9}, {3.5182408053387165`*^9, 
   3.518240855102804*^9}, {3.518240891700468*^9, 3.5182409026360874`*^9}, {
   3.5182410660151744`*^9, 3.5182410727231865`*^9}, {3.51824110908685*^9, 
   3.5182411327052917`*^9}, {3.518241193217798*^9, 3.5182411959634027`*^9}, {
   3.518291448974951*^9, 3.5182914676169834`*^9}, {3.518291524323083*^9, 
   3.51829153976711*^9}, {3.518291575631573*^9, 3.518291589562398*^9}, {
   3.5182917514854827`*^9, 3.5182917625459023`*^9}, {3.5197703785418744`*^9, 
   3.5197704585544147`*^9}, {3.5197823003612146`*^9, 3.519782301297216*^9}, {
   3.5327273625227003`*^9, 3.532727372032713*^9}, {3.5330847121896152`*^9, 
   3.533084735369648*^9}, {3.533085202270302*^9, 3.5330852300403404`*^9}, {
   3.5330855269607563`*^9, 3.5330855372607703`*^9}, {3.533085675350964*^9, 
   3.533085678880969*^9}, {3.533085724121032*^9, 3.533085727061036*^9}, {
   3.533086048201486*^9, 3.5330860543014946`*^9}, {3.533087161943045*^9, 
   3.5330871737730618`*^9}, {3.533087596973654*^9, 3.533087624703693*^9}, {
   3.5330880821743336`*^9, 3.5330880821743336`*^9}, {3.5330881138943777`*^9, 
   3.533088126024395*^9}, {3.5362820775082874`*^9, 3.5362821103483334`*^9}, {
   3.613355450820037*^9, 3.613355457570047*^9}, {3.613355779670498*^9, 
   3.613355779670498*^9}, {3.613356168641042*^9, 3.613356168641042*^9}, {
   3.613669569847045*^9, 3.613669602397091*^9}, 3.613679965449111*^9, {
   3.613758903601014*^9, 3.613758925459264*^9}, {3.613775676664378*^9, 
   3.6137756776314335`*^9}, {3.746048151229353*^9, 3.7460481553005857`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"p", "\[Element]", 
   SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, {
   3.493098879405472*^9, 3.493098884745479*^9}, {3.493099207935931*^9, 
   3.4930992149659414`*^9}, 3.4930996737265835`*^9, 3.493099827186798*^9, {
   3.719027544234731*^9, 3.719027544235731*^9}, {3.71907910415464*^9, 
   3.71907910433465*^9}, {3.7458645410279655`*^9, 3.7458645410279655`*^9}, {
   3.7458949669042187`*^9, 3.7458949669042187`*^9}, {3.7459078372443595`*^9, 
   3.7459078372443595`*^9}, {3.746048236028203*^9, 3.746048236028203*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   FractionBox[
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"ArcTanh", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], "x"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox["1", "n"]}]}], " ", 
   RowBox[{"Subst", "[", 
    RowBox[{
     RowBox[{"\[Integral]", 
      RowBox[{
       FractionBox[
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", 
            RowBox[{"ArcTanh", "[", 
             RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], "p"], "x"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",", 
     SuperscriptBox["x", "n"]}], "]"}]}]}]], "Subsubtitle",
 CellChangeTimes->{{3.493098332554706*^9, 3.4930984922049294`*^9}, {
   3.4930985835950575`*^9, 3.4930986777351894`*^9}, {3.4930988533254347`*^9, 
   3.4930988578754416`*^9}, {3.493099207935931*^9, 3.4930992149659414`*^9}, {
   3.4930993574561405`*^9, 3.493099400886202*^9}, {3.493099526816378*^9, 
   3.49309953534639*^9}, 3.4931705981281786`*^9, {3.493170768098417*^9, 
   3.4931708122284784`*^9}, {3.494013179298343*^9, 3.4940132717176294`*^9}, {
   3.4940167360667787`*^9, 3.494016736987831*^9}, {3.494016997482731*^9, 
   3.4940169979477572`*^9}, {3.553618588562634*^9, 3.553618601552652*^9}, {
   3.5852097202839603`*^9, 3.585209729863973*^9}, {3.5860254202373714`*^9, 
   3.5860254202473717`*^9}, {3.586026341328703*^9, 3.5860263530137196`*^9}, {
   3.586055711254512*^9, 3.586055714124917*^9}, {3.586110663681037*^9, 
   3.5861106636910367`*^9}, {3.586111433842115*^9, 3.5861114521921406`*^9}, 
   3.586111502612211*^9, 3.5861115683523035`*^9, {3.719027548496975*^9, 
   3.7190275552003584`*^9}, {3.7190791166363535`*^9, 3.719079162435973*^9}, {
   3.7366309946793027`*^9, 3.736630995248335*^9}, 3.7458642786859603`*^9, {
   3.745864499293578*^9, 3.7458645072530336`*^9}, {3.7458671301440544`*^9, 
   3.7458671307200875`*^9}, {3.7460480324395585`*^9, 3.7460480739989357`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c_.", "*", 
           RowBox[{"x_", "^", "n_"}]}], "]"}]}]}], ")"}], "^", "p_."}], "/", 
     "x_"}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", "n"}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", 
             RowBox[{"ArcTanh", "[", 
              RowBox[{"c", "*", "x"}], "]"}]}]}], ")"}], "^", "p"}], "/", 
         "x"}], ",", "x"}], "]"}], ",", "x", ",", 
      RowBox[{"x", "^", "n"}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "n"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"p", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.4928302625720215`*^9, 3.4928303000920744`*^9}, {
   3.4928305645624447`*^9, 3.4928305746224585`*^9}, {3.4930994731463027`*^9, 
   3.4930995793864517`*^9}, {3.494000871289543*^9, 3.494000871296543*^9}, {
   3.4940178019527435`*^9, 3.4940178274122*^9}, 3.5487323946014557`*^9, 
   3.5487326480149503`*^9, 3.5851544095366898`*^9, {3.585155517940237*^9, 
   3.585155518985439*^9}, {3.5851561195084934`*^9, 3.58515612893091*^9}, {
   3.5860255404975452`*^9, 3.5860255405075455`*^9}, 3.5860256583652163`*^9, {
   3.5860263966912823`*^9, 3.586026423146321*^9}, {3.5860557709702168`*^9, 
   3.5860557731542206`*^9}, {3.5861106637010365`*^9, 3.586110663721037*^9}, 
   3.5861109930214977`*^9, {3.5861117106625023`*^9, 3.586111721562518*^9}, 
   3.7152330940893335`*^9, {3.7190275870121775`*^9, 3.7190275975867825`*^9}, 
   3.7190791089319134`*^9, {3.7190792785016117`*^9, 3.7190792975497017`*^9}, {
   3.7190793475825634`*^9, 3.719079351618794*^9}, 3.720160281874096*^9, 
   3.7202005075315332`*^9, {3.736630995941375*^9, 3.7366309964314027`*^9}, {
   3.7458645628702145`*^9, 3.7458645968141565`*^9}, {3.745864651046258*^9, 
   3.745864664287016*^9}, {3.7458671312981205`*^9, 3.745867131840152*^9}, 
   3.745894990093545*^9, 3.7459084503694286`*^9, {3.746048277438572*^9, 
   3.746048313878656*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"ArcCoth", "[", 
          RowBox[{"c_.", "*", 
           RowBox[{"x_", "^", "n_"}]}], "]"}]}]}], ")"}], "^", "p_."}], "/", 
     "x_"}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", "n"}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", 
             RowBox[{"ArcCoth", "[", 
              RowBox[{"c", "*", "x"}], "]"}]}]}], ")"}], "^", "p"}], "/", 
         "x"}], ",", "x"}], "]"}], ",", "x", ",", 
      RowBox[{"x", "^", "n"}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "n"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"p", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.4928302625720215`*^9, 3.4928303000920744`*^9}, {
   3.4928305645624447`*^9, 3.4928305746224585`*^9}, {3.4930994731463027`*^9, 
   3.4930995793864517`*^9}, {3.494000871289543*^9, 3.494000871296543*^9}, {
   3.4940178019527435`*^9, 3.4940178274122*^9}, 3.5487323946014557`*^9, 
   3.5487326480149503`*^9, 3.5851544095366898`*^9, {3.585155517940237*^9, 
   3.585155518985439*^9}, {3.5851561195084934`*^9, 3.58515612893091*^9}, {
   3.5860255404975452`*^9, 3.5860255405075455`*^9}, 3.5860256583652163`*^9, {
   3.5860263966912823`*^9, 3.586026423146321*^9}, {3.5860557709702168`*^9, 
   3.5860557731542206`*^9}, {3.5861106637010365`*^9, 3.586110663721037*^9}, 
   3.5861109930214977`*^9, {3.5861117106625023`*^9, 3.586111721562518*^9}, 
   3.7152330940893335`*^9, {3.7190275870121775`*^9, 3.7190275975867825`*^9}, 
   3.7190791089319134`*^9, {3.7190792785016117`*^9, 3.7190792975497017`*^9}, {
   3.7190793475825634`*^9, 3.719079351618794*^9}, 3.720160281874096*^9, 
   3.7202005075315332`*^9, {3.736630995941375*^9, 3.7366309964314027`*^9}, {
   3.7458645628702145`*^9, 3.7458645968141565`*^9}, {3.745864651046258*^9, 
   3.745864664287016*^9}, {3.7458671312981205`*^9, 3.745867131840152*^9}, 
   3.745894990093545*^9, 3.7459084503694286`*^9, {3.746048277438572*^9, 
   3.7460483235982122`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"p", "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"p", "\[Equal]", "1"}], " ", "\[Or]", " ", 
         RowBox[{
          RowBox[{"n", "\[Equal]", "1"}], "\[And]", 
          RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]}], ")"}], 
       "\[And]", " ", 
       RowBox[{"m", "\[NotEqual]", 
        RowBox[{"-", "1"}]}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.550770598144562*^9, 3.550770659629079*^9}, {3.5507707252908344`*^9, 
   3.5507707474461017`*^9}, 3.5507880023630266`*^9, {3.5508017696214375`*^9, 
   3.5508017788269644`*^9}, {3.5508018116158395`*^9, 3.5508018116158395`*^9}, 
   3.5508018976437597`*^9, {3.5508021384015307`*^9, 3.550802155115487*^9}, {
   3.5508022151019173`*^9, 3.5508022151019173`*^9}, {3.550802487106476*^9, 
   3.5508025179152374`*^9}, {3.5508029261175857`*^9, 
   3.5508029342300496`*^9}, {3.5521511708590136`*^9, 3.5521511712334137`*^9}, 
   3.552151666269083*^9, {3.5535324250863676`*^9, 3.553532441643315*^9}, {
   3.553532476791325*^9, 3.553532477502366*^9}, {3.5535325810722895`*^9, 
   3.5535325810722895`*^9}, {3.553534924419321*^9, 3.5535349316017323`*^9}, {
   3.5535597570381007`*^9, 3.553559765608113*^9}, {3.553559900728302*^9, 
   3.55355990606831*^9}, 3.553560247968788*^9, {3.553560284118839*^9, 
   3.553560284268839*^9}, 3.553617750921461*^9, {3.5536177847415085`*^9, 
   3.553617790541517*^9}, 3.5536180162118325`*^9, {3.5536181773620586`*^9, 
   3.553618184892069*^9}, {3.5536184787824802`*^9, 3.5536184787824802`*^9}, {
   3.5536185303625526`*^9, 3.5536185303625526`*^9}, {3.553618804282936*^9, 
   3.5536188053529377`*^9}, 3.553966022715358*^9, {3.5557149676464005`*^9, 
   3.5557149676464005`*^9}, {3.555715015066467*^9, 3.555715015066467*^9}, 
   3.555715325186901*^9, {3.555721683865837*^9, 3.5557217174158845`*^9}, {
   3.5557220560763583`*^9, 3.555722056246359*^9}, {3.555722398856838*^9, 
   3.5557223990268383`*^9}, {3.555729434124188*^9, 3.5557294411241975`*^9}, {
   3.555729504284286*^9, 3.5557295051542873`*^9}, 3.555775173368371*^9, 
   3.556298635391014*^9, {3.5851540523959627`*^9, 3.5851540523959627`*^9}, {
   3.585154097292841*^9, 3.585154097292841*^9}, 3.5851562220162735`*^9, 
   3.5860254202573714`*^9, {3.586315733723834*^9, 3.586315733723834*^9}, 
   3.5863181381849756`*^9, 3.6201611909713435`*^9, {3.7190276491227303`*^9, 
   3.719027652298912*^9}, 3.719027684653763*^9, 3.7190287545879593`*^9, {
   3.7190288385937643`*^9, 3.719028866880382*^9}, 3.719029023615347*^9, 
   3.719029067829876*^9, 3.719079388540906*^9, {3.7190941088199606`*^9, 
   3.719094159290848*^9}, 3.74604870050977*^9, 3.746048820549636*^9, {
   3.746049209362875*^9, 3.7460492162232676`*^9}, {3.7460494885568438`*^9, 
   3.7460495432389717`*^9}, {3.746050776901533*^9, 3.7460507771245456`*^9}, {
   3.7460510008083396`*^9, 3.7460510010473533`*^9}, {3.7460510487460814`*^9, 
   3.746051057654591*^9}, 3.7460539213493853`*^9, {3.7460577492803297`*^9, 
   3.746057760359964*^9}, 3.746061875598342*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{{3.493099207935931*^9, 3.4930992149659414`*^9}, {
   3.4940052861338797`*^9, 3.4940052928402634`*^9}, {3.554052882688694*^9, 
   3.554052897948715*^9}, {3.5540534414694767`*^9, 3.5540534433294787`*^9}, 
   3.555721426425477*^9}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"ArcTanh", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"]}], "\[Equal]", 
   RowBox[{"b", " ", "c", " ", "n", " ", "p", " ", 
    FractionBox[
     RowBox[{
      SuperscriptBox["x", 
       RowBox[{"n", "-", "1"}]], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"ArcTanh", "[", 
           RowBox[{"c", " ", 
            SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], 
       RowBox[{"p", "-", "1"}]]}], 
     RowBox[{"1", "-", 
      RowBox[{
       SuperscriptBox["c", "2"], " ", 
       SuperscriptBox["x", 
        RowBox[{"2", " ", "n"}]]}]}]]}]}]],
  CellChangeTimes->{{3.7164000820815177`*^9, 3.7164001510404615`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{{3.7164000749121075`*^9, 3.716400075869162*^9}, 
   3.7164001604469995`*^9, {3.7365669595598493`*^9, 3.7365669602978916`*^9}, {
   3.7365671753641925`*^9, 3.7365671826236076`*^9}, {3.73656721850566*^9, 
   3.73656721850566*^9}, {3.74604617607238*^9, 3.74604617607238*^9}, {
   3.7460462731769347`*^9, 3.7460462731769347`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"p", "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"p", "\[Equal]", "1"}], " ", "\[Or]", " ", 
     RowBox[{
      RowBox[{"n", "\[Equal]", "1"}], "\[And]", 
      RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]}], ")"}], 
   "\[And]", " ", 
   RowBox[{"m", "\[NotEqual]", 
    RowBox[{"-", "1"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, {
   3.493098879405472*^9, 3.493098884745479*^9}, {3.493099207935931*^9, 
   3.4930992149659414`*^9}, 3.4930996737265835`*^9, 3.493099827186798*^9, {
   3.4932434943005557`*^9, 3.493243522320595*^9}, {3.494005203823172*^9, 
   3.494005223116276*^9}, {3.494005912167687*^9, 3.494005912167687*^9}, {
   3.494005996704522*^9, 3.494006005111003*^9}, {3.4940117189798174`*^9, 
   3.494011721274949*^9}, {3.494011926169668*^9, 3.4940119289428267`*^9}, {
   3.4940120348468843`*^9, 3.494012036980006*^9}, {3.494013442081373*^9, 
   3.494013450779871*^9}, {3.5536184826024857`*^9, 3.5536184826024857`*^9}, {
   3.553618527502548*^9, 3.553618527502548*^9}, {3.5557150063264546`*^9, 
   3.5557150070964556`*^9}, {3.5557214656055317`*^9, 
   3.5557214656055317`*^9}, {3.5557217241458936`*^9, 
   3.5557217241458936`*^9}, {3.555729445104203*^9, 3.5557294457742043`*^9}, {
   3.5851541025188503`*^9, 3.5851541025188503`*^9}, {3.5863157450938497`*^9, 
   3.5863157450938497`*^9}, {3.7190276609994097`*^9, 
   3.7190276609994097`*^9}, {3.7190288418889527`*^9, 
   3.7190288420679626`*^9}, {3.7190942313589697`*^9, 
   3.7190942313589697`*^9}, {3.7460492244167356`*^9, 
   3.7460492244167356`*^9}, {3.7460495612800035`*^9, 
   3.7460495612810035`*^9}, {3.746051005767623*^9, 3.7460510059756355`*^9}, {
   3.746051073216481*^9, 3.746051073216481*^9}, {3.7460577713525925`*^9, 
   3.7460577713525925`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox["x", "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"ArcTanh", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{
        SuperscriptBox["x", 
         RowBox[{"m", "+", "1"}]], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", 
            RowBox[{"ArcTanh", "[", 
             RowBox[{"c", " ", 
              SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"]}], 
       RowBox[{"m", "+", "1"}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"b", " ", "c", " ", "n", " ", "p"}], 
    RowBox[{"m", "+", "1"}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox["x", 
        RowBox[{"m", "+", "n"}]], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"ArcTanh", "[", 
            RowBox[{"c", " ", 
             SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], 
        RowBox[{"p", "-", "1"}]]}], 
      RowBox[{"1", "-", 
       RowBox[{
        SuperscriptBox["c", "2"], " ", 
        SuperscriptBox["x", 
         RowBox[{"2", " ", "n"}]]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellChangeTimes->{{3.493098332554706*^9, 3.4930984922049294`*^9}, {
   3.4930985835950575`*^9, 3.4930986777351894`*^9}, {3.4930988533254347`*^9, 
   3.4930988578754416`*^9}, {3.493099207935931*^9, 3.4930992149659414`*^9}, {
   3.4930993574561405`*^9, 3.493099400886202*^9}, {3.493099526816378*^9, 
   3.49309953534639*^9}, 3.4931705981281786`*^9, {3.493170768098417*^9, 
   3.4931708122284784`*^9}, {3.4940050446890697`*^9, 
   3.4940051357132764`*^9}, {3.494010254898077*^9, 3.4940102990006*^9}, {
   3.494010355515832*^9, 3.4940103650133753`*^9}, 3.4940116760473623`*^9, {
   3.4940156538678803`*^9, 3.494015661870338*^9}, {3.494015862381807*^9, 
   3.4940158673580914`*^9}, {3.5539680782425966`*^9, 3.553968085325009*^9}, {
   3.554437984948521*^9, 3.554437997758539*^9}, {3.5544380373785944`*^9, 
   3.5544380523386154`*^9}, {3.554438084958661*^9, 3.554438089888668*^9}, 
   3.5544381973088183`*^9, {3.5557186640891094`*^9, 3.5557186974791565`*^9}, 
   3.555721433285486*^9, 3.5557751270983067`*^9, {3.555775173878372*^9, 
   3.5557751751283736`*^9}, {3.5860254202573714`*^9, 3.586025420267371*^9}, {
   3.5860264816789055`*^9, 3.5860265104739475`*^9}, 3.5861116554024253`*^9, {
   3.586318138194976*^9, 3.5863181382049756`*^9}, 3.5863182639051514`*^9, {
   3.719027688509983*^9, 3.7190276932052517`*^9}, {3.7190288725377054`*^9, 
   3.719028884217374*^9}, {3.7460488222867355`*^9, 3.7460488607669363`*^9}, {
   3.7460489011432457`*^9, 3.7460489199753227`*^9}, {3.7460489594145784`*^9, 
   3.7460489616477065`*^9}, {3.7460539253596144`*^9, 
   3.7460539289918222`*^9}, {3.746054060023317*^9, 3.7460540659996586`*^9}, {
   3.7460541609600897`*^9, 3.7460541699526043`*^9}, {3.7460542287049646`*^9, 
   3.746054237400462*^9}, {3.7460618790165377`*^9, 3.746061884376844*^9}, {
   3.746061949624576*^9, 3.746061952887763*^9}, {3.7460620129361973`*^9, 
   3.7460620148643074`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.4940053078671227`*^9, 3.494005310026246*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c_.", "*", 
           RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}], "^", "p_."}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"x", "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"ArcTanh", "[", 
           RowBox[{"c", "*", 
            RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "^", "p"}], "/", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}]}], " ", "-", " ", 
    "\[IndentingNewLine]", "  ", 
    RowBox[{"b", "*", "c", "*", "n", "*", 
     RowBox[{"p", "/", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "n"}], ")"}]}], "*", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", 
             RowBox[{"ArcTanh", "[", 
              RowBox[{"c", "*", 
               RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"p", "-", "1"}], ")"}]}], "/", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{
            RowBox[{"c", "^", "2"}], "*", 
            RowBox[{"x", "^", 
             RowBox[{"(", 
              RowBox[{"2", "*", "n"}], ")"}]}]}]}], ")"}]}]}], ",", "x"}], 
      "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "m", ",", "n"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"p", ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"EqQ", "[", 
       RowBox[{"p", ",", "1"}], "]"}], " ", "||", " ", 
      RowBox[{
       RowBox[{"EqQ", "[", 
        RowBox[{"n", ",", "1"}], "]"}], " ", "&&", " ", 
       RowBox[{"IntegerQ", "[", "m", "]"}]}]}], ")"}], "  ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.4928302625720215`*^9, 3.4928303000920744`*^9}, {
   3.4928305645624447`*^9, 3.4928305746224585`*^9}, {3.4930994731463027`*^9, 
   3.4930995793864517`*^9}, {3.4931708257484975`*^9, 3.493170933088648*^9}, {
   3.493170964658692*^9, 3.4931709750387063`*^9}, {3.493171201919024*^9, 
   3.493171205079028*^9}, {3.493171366199254*^9, 3.4931713665792546`*^9}, {
   3.4931715056494493`*^9, 3.49317150626945*^9}, {3.4932434733805265`*^9, 
   3.4932434776305323`*^9}, 3.4932442598016276`*^9, 3.4932444119118404`*^9, {
   3.494004039303565*^9, 3.4940040800098934`*^9}, {3.4940049144956236`*^9, 
   3.4940049151486607`*^9}, {3.4940049727389545`*^9, 3.4940049792463264`*^9}, 
   3.4940059089755044`*^9, {3.494006032487569*^9, 3.4940060554328814`*^9}, 
   3.4940094923844633`*^9, {3.4940103280942636`*^9, 3.4940103492304726`*^9}, {
   3.4940104554925504`*^9, 3.4940104824550924`*^9}, {3.4940117336926594`*^9, 
   3.494011876094804*^9}, {3.4940120191709876`*^9, 3.4940120264064016`*^9}, {
   3.4940134559001637`*^9, 3.4940134576452637`*^9}, {3.553968162183943*^9, 
   3.5539681851627836`*^9}, {3.554438058758624*^9, 3.554438059968626*^9}, 
   3.555714908126317*^9, 3.555715055236523*^9, 3.555718733889207*^9, 
   3.555721527285618*^9, {3.555721591635708*^9, 3.555721603375725*^9}, {
   3.555721660045804*^9, 3.555721679935832*^9}, {3.5557220722263813`*^9, 
   3.5557220760563865`*^9}, 3.5557225762470865`*^9, {3.5557294509142113`*^9, 
   3.555729470674239*^9}, 3.555775136288319*^9, {3.555775178048378*^9, 
   3.5557751804483814`*^9}, {3.585154065811986*^9, 3.585154078728809*^9}, {
   3.5860255405175457`*^9, 3.586025540527546*^9}, 3.5860256583752165`*^9, 
   3.586026499378931*^9, {3.5860265312364774`*^9, 3.5860265451714973`*^9}, {
   3.5863157512838583`*^9, 3.586315757463867*^9}, {3.586316277597108*^9, 
   3.5863162979371357`*^9}, {3.5863181382149754`*^9, 3.586318138234976*^9}, 
   3.586318266255155*^9, 3.706141512028139*^9, 3.7152323946093254`*^9, 
   3.7152330941323357`*^9, {3.7190276979055204`*^9, 3.719027733935581*^9}, 
   3.7190288472342587`*^9, {3.719028908781779*^9, 3.7190289530073085`*^9}, {
   3.7190290319118214`*^9, 3.7190290321398344`*^9}, 3.7190348369134474`*^9, {
   3.7190942848550296`*^9, 3.7190943040361266`*^9}, 3.720160281900097*^9, 
   3.7202005075395336`*^9, {3.746048997112735*^9, 3.746049049392725*^9}, {
   3.746049079848467*^9, 3.7460491110642524`*^9}, {3.746049176480994*^9, 
   3.746049176897018*^9}, {3.7460492837621303`*^9, 3.746049292224614*^9}, {
   3.7460493628496532`*^9, 3.7460493757443914`*^9}, {3.746049417144759*^9, 
   3.746049431688591*^9}, {3.746051010464892*^9, 3.7460510114399476`*^9}, {
   3.746051076961695*^9, 3.746051078648792*^9}, {3.7460539562173796`*^9, 
   3.746053982440879*^9}, {3.74605428229803*^9, 3.746054338490244*^9}, {
   3.7460577231868377`*^9, 3.746057728977169*^9}, {3.746061890210178*^9, 
   3.746061913009482*^9}, {3.746061960153178*^9, 3.746061963762385*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"ArcCoth", "[", 
          RowBox[{"c_.", "*", 
           RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}], "^", "p_."}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"x", "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"ArcCoth", "[", 
           RowBox[{"c", "*", 
            RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "^", "p"}], "/", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}]}], " ", "-", " ", 
    "\[IndentingNewLine]", "  ", 
    RowBox[{"b", "*", "c", "*", "n", "*", 
     RowBox[{"p", "/", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "n"}], ")"}]}], "*", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", 
             RowBox[{"ArcCoth", "[", 
              RowBox[{"c", "*", 
               RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"p", "-", "1"}], ")"}]}], "/", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{
            RowBox[{"c", "^", "2"}], "*", 
            RowBox[{"x", "^", 
             RowBox[{"(", 
              RowBox[{"2", "*", "n"}], ")"}]}]}]}], ")"}]}]}], ",", "x"}], 
      "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "m", ",", "n"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"p", ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"EqQ", "[", 
       RowBox[{"p", ",", "1"}], "]"}], " ", "||", " ", 
      RowBox[{
       RowBox[{"EqQ", "[", 
        RowBox[{"n", ",", "1"}], "]"}], " ", "&&", " ", 
       RowBox[{"IntegerQ", "[", "m", "]"}]}]}], ")"}], "  ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.4928302625720215`*^9, 3.4928303000920744`*^9}, {
   3.4928305645624447`*^9, 3.4928305746224585`*^9}, {3.4930994731463027`*^9, 
   3.4930995793864517`*^9}, {3.4931708257484975`*^9, 3.493170933088648*^9}, {
   3.493170964658692*^9, 3.4931709750387063`*^9}, {3.493171201919024*^9, 
   3.493171205079028*^9}, {3.493171366199254*^9, 3.4931713665792546`*^9}, {
   3.4931715056494493`*^9, 3.49317150626945*^9}, {3.4932434733805265`*^9, 
   3.4932434776305323`*^9}, 3.4932442598016276`*^9, 3.4932444119118404`*^9, {
   3.494004039303565*^9, 3.4940040800098934`*^9}, {3.4940049144956236`*^9, 
   3.4940049151486607`*^9}, {3.4940049727389545`*^9, 3.4940049792463264`*^9}, 
   3.4940059089755044`*^9, {3.494006032487569*^9, 3.4940060554328814`*^9}, 
   3.4940094923844633`*^9, {3.4940103280942636`*^9, 3.4940103492304726`*^9}, {
   3.4940104554925504`*^9, 3.4940104824550924`*^9}, {3.4940117336926594`*^9, 
   3.494011876094804*^9}, {3.4940120191709876`*^9, 3.4940120264064016`*^9}, {
   3.4940134559001637`*^9, 3.4940134576452637`*^9}, {3.553968162183943*^9, 
   3.5539681851627836`*^9}, {3.554438058758624*^9, 3.554438059968626*^9}, 
   3.555714908126317*^9, 3.555715055236523*^9, 3.555718733889207*^9, 
   3.555721527285618*^9, {3.555721591635708*^9, 3.555721603375725*^9}, {
   3.555721660045804*^9, 3.555721679935832*^9}, {3.5557220722263813`*^9, 
   3.5557220760563865`*^9}, 3.5557225762470865`*^9, {3.5557294509142113`*^9, 
   3.555729470674239*^9}, 3.555775136288319*^9, {3.555775178048378*^9, 
   3.5557751804483814`*^9}, {3.585154065811986*^9, 3.585154078728809*^9}, {
   3.5860255405175457`*^9, 3.586025540527546*^9}, 3.5860256583752165`*^9, 
   3.586026499378931*^9, {3.5860265312364774`*^9, 3.5860265451714973`*^9}, {
   3.5863157512838583`*^9, 3.586315757463867*^9}, {3.586316277597108*^9, 
   3.5863162979371357`*^9}, {3.5863181382149754`*^9, 3.586318138234976*^9}, 
   3.586318266255155*^9, 3.706141512028139*^9, 3.7152323946093254`*^9, 
   3.7152330941323357`*^9, {3.7190276979055204`*^9, 3.719027733935581*^9}, 
   3.7190288472342587`*^9, {3.719028908781779*^9, 3.7190289530073085`*^9}, {
   3.7190290319118214`*^9, 3.7190290321398344`*^9}, 3.7190348369134474`*^9, {
   3.7190942848550296`*^9, 3.7190943040361266`*^9}, 3.720160281900097*^9, 
   3.7202005075395336`*^9, {3.746048997112735*^9, 3.746049049392725*^9}, {
   3.746049079848467*^9, 3.7460491110642524`*^9}, {3.746049176480994*^9, 
   3.746049176897018*^9}, {3.7460492837621303`*^9, 3.746049292224614*^9}, {
   3.7460493628496532`*^9, 3.7460493757443914`*^9}, {3.746049417144759*^9, 
   3.746049431688591*^9}, {3.746051010464892*^9, 3.7460510114399476`*^9}, {
   3.746051076961695*^9, 3.746051078648792*^9}, {3.7460539562173796`*^9, 
   3.746053982440879*^9}, {3.74605428229803*^9, 3.746054338490244*^9}, {
   3.7460577231868377`*^9, 3.746057728977169*^9}, {3.746061890210178*^9, 
   3.7460619265062537`*^9}, {3.7460619691466928`*^9, 3.7460619716258345`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["3:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{"p", "-", "1"}], "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
       RowBox[{
        FractionBox[
         RowBox[{"m", "+", "1"}], "n"], "\[Element]", 
        "\[DoubleStruckCapitalZ]"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.550770598144562*^9, 3.550770659629079*^9}, {3.5507707252908344`*^9, 
   3.5507707474461017`*^9}, 3.5507880023630266`*^9, {3.5508017696214375`*^9, 
   3.5508017788269644`*^9}, {3.5508018116158395`*^9, 3.5508018116158395`*^9}, 
   3.5508018976437597`*^9, {3.5508021384015307`*^9, 3.550802155115487*^9}, {
   3.5508022151019173`*^9, 3.5508022151019173`*^9}, {3.550802487106476*^9, 
   3.5508025179152374`*^9}, {3.5508029261175857`*^9, 
   3.5508029342300496`*^9}, {3.5521511708590136`*^9, 3.5521511712334137`*^9}, 
   3.552151666269083*^9, {3.5535324250863676`*^9, 3.553532441643315*^9}, {
   3.553532476791325*^9, 3.553532477502366*^9}, {3.5535325810722895`*^9, 
   3.5535325810722895`*^9}, {3.553534924419321*^9, 3.5535349316017323`*^9}, {
   3.5535597570381007`*^9, 3.553559765608113*^9}, {3.553559900728302*^9, 
   3.55355990606831*^9}, 3.553560247968788*^9, {3.553560284118839*^9, 
   3.553560284268839*^9}, 3.553617750921461*^9, {3.5536177847415085`*^9, 
   3.553617790541517*^9}, 3.5536180162118325`*^9, {3.5536181502920203`*^9, 
   3.553618158782032*^9}, {3.553618200642091*^9, 3.553618200642091*^9}, {
   3.5536187940529213`*^9, 3.5536187975029263`*^9}, {3.5536190562932887`*^9, 
   3.553619059143293*^9}, {3.55577497216809*^9, 3.5557749735780916`*^9}, 
   3.5562986340610123`*^9, {3.5851540460779514`*^9, 3.5851540460779514`*^9}, {
   3.585156115967287*^9, 3.585156143594936*^9}, 3.5851562214234724`*^9, 
   3.5860254202373714`*^9, 3.5861106636710367`*^9, {3.586318752735836*^9, 
   3.586318753595837*^9}, 3.620161190430313*^9, {3.7190275410575495`*^9, 
   3.7190275614987183`*^9}, 3.7190287537149096`*^9, {3.7190292198615713`*^9, 
   3.7190292202115917`*^9}, {3.7190790616792107`*^9, 
   3.7190790806342945`*^9}, {3.7366235229739456`*^9, 3.736623526741161*^9}, 
   3.7366309939822626`*^9, {3.7458640007970657`*^9, 3.745864004988306*^9}, {
   3.745864160742214*^9, 3.745864162574319*^9}, {3.7458642593678555`*^9, 
   3.7458642593678555`*^9}, 3.7458644471095934`*^9, 3.7458671289739876`*^9, {
   3.7458949668752165`*^9, 3.7458949668752165`*^9}, {3.7459078367493315`*^9, 
   3.7459078367493315`*^9}, 3.7460502191506314`*^9, {3.7460507016782303`*^9, 
   3.746050701965247*^9}, {3.746050784460965*^9, 3.7460507846689773`*^9}, {
   3.746051322825758*^9, 3.746051322825758*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by substitution", "Subsubsection",
 CellChangeTimes->{{3.493099207935931*^9, 3.4930992149659414`*^9}, {
  3.7190790922529593`*^9, 3.7190790947771034`*^9}}],

Cell[TextData[{
 "Basis: If ",
 Cell[BoxData[
  RowBox[{
   FractionBox[
    RowBox[{"m", "+", "1"}], "n"], "\[Element]", "\[DoubleStruckCapitalZ]"}]]],
 ", then ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["x", "m"], 
    RowBox[{"F", "[", 
     SuperscriptBox["x", "n"], "]"}]}], "\[Equal]", 
   RowBox[{
    FractionBox["1", "n"], " ", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{
       SuperscriptBox["x", 
        RowBox[{
         FractionBox[
          RowBox[{"m", "+", "1"}], "n"], "-", "1"}]], " ", 
       RowBox[{"F", "[", "x", "]"}]}], ",", "x", ",", 
      SuperscriptBox["x", "n"]}], "]"}], " ", 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     SuperscriptBox["x", "n"]}]}]}]], "Input",
  CellChangeTimes->{{3.496607156053342*^9, 3.4966071870033855`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.496441803031353*^9, 3.4965396318089237`*^9, {3.4966002562016735`*^9, 
   3.4966002624716825`*^9}, 3.496600707442305*^9, 3.4966008475725017`*^9, {
   3.4966070255131593`*^9, 3.496607032413169*^9}, {3.496607078713234*^9, 
   3.4966070808932366`*^9}, {3.4966071978234005`*^9, 3.496607200693404*^9}, {
   3.4966322361067057`*^9, 3.4966322383967094`*^9}, {3.5182408053387165`*^9, 
   3.518240855102804*^9}, {3.518240891700468*^9, 3.5182409026360874`*^9}, {
   3.5182410660151744`*^9, 3.5182410727231865`*^9}, {3.51824110908685*^9, 
   3.5182411327052917`*^9}, {3.518241193217798*^9, 3.5182411959634027`*^9}, {
   3.518291448974951*^9, 3.5182914676169834`*^9}, {3.518291524323083*^9, 
   3.51829153976711*^9}, {3.518291575631573*^9, 3.518291589562398*^9}, {
   3.5182917514854827`*^9, 3.5182917625459023`*^9}, {3.5197703785418744`*^9, 
   3.5197704585544147`*^9}, {3.5197823003612146`*^9, 3.519782301297216*^9}, {
   3.5327273625227003`*^9, 3.532727372032713*^9}, {3.5330847121896152`*^9, 
   3.533084735369648*^9}, {3.533085202270302*^9, 3.5330852300403404`*^9}, {
   3.5330855269607563`*^9, 3.5330855372607703`*^9}, {3.533085675350964*^9, 
   3.533085678880969*^9}, {3.533085724121032*^9, 3.533085727061036*^9}, {
   3.533086048201486*^9, 3.5330860543014946`*^9}, {3.533087161943045*^9, 
   3.5330871737730618`*^9}, {3.533087596973654*^9, 3.533087624703693*^9}, {
   3.5330880821743336`*^9, 3.5330880821743336`*^9}, {3.5330881138943777`*^9, 
   3.533088126024395*^9}, {3.5362820775082874`*^9, 3.5362821103483334`*^9}, {
   3.613355450820037*^9, 3.613355457570047*^9}, {3.613355779670498*^9, 
   3.613355779670498*^9}, {3.613356168641042*^9, 3.613356168641042*^9}, {
   3.613669569847045*^9, 3.613669602397091*^9}, 3.613679965449111*^9, {
   3.613758903601014*^9, 3.613758925459264*^9}, {3.613775676664378*^9, 
   3.6137756776314335`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"p", "-", "1"}], "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
   RowBox[{
    FractionBox[
     RowBox[{"m", "+", "1"}], "n"], "\[Element]", 
    "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, {
   3.493098879405472*^9, 3.493098884745479*^9}, {3.493099207935931*^9, 
   3.4930992149659414`*^9}, 3.4930996737265835`*^9, 3.493099827186798*^9, {
   3.719027544234731*^9, 3.719027544235731*^9}, {3.71907910415464*^9, 
   3.71907910433465*^9}, {3.7458645410279655`*^9, 3.7458645410279655`*^9}, {
   3.7458949669042187`*^9, 3.7458949669042187`*^9}, {3.7459078372443595`*^9, 
   3.7459078372443595`*^9}, {3.7460513260729437`*^9, 3.7460513260729437`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox["x", "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"ArcTanh", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox["1", "n"]}]}], " ", 
   RowBox[{"Subst", "[", 
    RowBox[{
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox["x", 
        RowBox[{
         FractionBox[
          RowBox[{"m", "+", "1"}], "n"], "-", "1"}]], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"ArcTanh", "[", 
            RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], "p"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",", 
     SuperscriptBox["x", "n"]}], "]"}]}]}]], "Subsubtitle",
 CellChangeTimes->{{3.493098332554706*^9, 3.4930984922049294`*^9}, {
   3.4930985835950575`*^9, 3.4930986777351894`*^9}, {3.4930988533254347`*^9, 
   3.4930988578754416`*^9}, {3.493099207935931*^9, 3.4930992149659414`*^9}, {
   3.4930993574561405`*^9, 3.493099400886202*^9}, {3.493099526816378*^9, 
   3.49309953534639*^9}, 3.4931705981281786`*^9, {3.493170768098417*^9, 
   3.4931708122284784`*^9}, {3.494013179298343*^9, 3.4940132717176294`*^9}, {
   3.4940167360667787`*^9, 3.494016736987831*^9}, {3.494016997482731*^9, 
   3.4940169979477572`*^9}, {3.553618588562634*^9, 3.553618601552652*^9}, {
   3.5852097202839603`*^9, 3.585209729863973*^9}, {3.5860254202373714`*^9, 
   3.5860254202473717`*^9}, {3.586026341328703*^9, 3.5860263530137196`*^9}, {
   3.586055711254512*^9, 3.586055714124917*^9}, {3.586110663681037*^9, 
   3.5861106636910367`*^9}, {3.586111433842115*^9, 3.5861114521921406`*^9}, 
   3.586111502612211*^9, 3.5861115683523035`*^9, {3.719027548496975*^9, 
   3.7190275552003584`*^9}, {3.7190791166363535`*^9, 3.719079162435973*^9}, {
   3.7366309946793027`*^9, 3.736630995248335*^9}, 3.7458642786859603`*^9, {
   3.745864499293578*^9, 3.7458645072530336`*^9}, {3.7458671301440544`*^9, 
   3.7458671307200875`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c_.", "*", 
           RowBox[{"x_", "^", "n_"}]}], "]"}]}]}], ")"}], "^", "p_."}]}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", "n"}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"x", "^", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Simplify", "[", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"m", "+", "1"}], ")"}], "/", "n"}], "]"}], "-", "1"}], 
           ")"}]}], "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", 
             RowBox[{"ArcTanh", "[", 
              RowBox[{"c", "*", "x"}], "]"}]}]}], ")"}], "^", "p"}]}], ",", 
        "x"}], "]"}], ",", "x", ",", 
      RowBox[{"x", "^", "n"}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "m", ",", "n"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"p", ",", "1"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", 
     RowBox[{"Simplify", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"m", "+", "1"}], ")"}], "/", "n"}], "]"}], 
     "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.4928302625720215`*^9, 3.4928303000920744`*^9}, {
   3.4928305645624447`*^9, 3.4928305746224585`*^9}, {3.4930994731463027`*^9, 
   3.4930995793864517`*^9}, {3.494000871289543*^9, 3.494000871296543*^9}, {
   3.4940178019527435`*^9, 3.4940178274122*^9}, 3.5487323946014557`*^9, 
   3.5487326480149503`*^9, 3.5851544095366898`*^9, {3.585155517940237*^9, 
   3.585155518985439*^9}, {3.5851561195084934`*^9, 3.58515612893091*^9}, {
   3.5860255404975452`*^9, 3.5860255405075455`*^9}, 3.5860256583652163`*^9, {
   3.5860263966912823`*^9, 3.586026423146321*^9}, {3.5860557709702168`*^9, 
   3.5860557731542206`*^9}, {3.5861106637010365`*^9, 3.586110663721037*^9}, 
   3.5861109930214977`*^9, {3.5861117106625023`*^9, 3.586111721562518*^9}, 
   3.7152330940893335`*^9, {3.7190275870121775`*^9, 3.7190275975867825`*^9}, 
   3.7190791089319134`*^9, {3.7190792785016117`*^9, 3.7190792975497017`*^9}, {
   3.7190793475825634`*^9, 3.719079351618794*^9}, 3.720160281874096*^9, 
   3.7202005075315332`*^9, {3.736630995941375*^9, 3.7366309964314027`*^9}, {
   3.7458645628702145`*^9, 3.7458645968141565`*^9}, {3.745864651046258*^9, 
   3.745864664287016*^9}, {3.7458671312981205`*^9, 3.745867131840152*^9}, 
   3.745894990093545*^9, 3.7459084503694286`*^9, 3.7460513284870815`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"ArcCoth", "[", 
          RowBox[{"c_.", "*", 
           RowBox[{"x_", "^", "n_"}]}], "]"}]}]}], ")"}], "^", "p_."}]}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", "n"}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"x", "^", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Simplify", "[", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"m", "+", "1"}], ")"}], "/", "n"}], "]"}], "-", "1"}], 
           ")"}]}], "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", 
             RowBox[{"ArcCoth", "[", 
              RowBox[{"c", "*", "x"}], "]"}]}]}], ")"}], "^", "p"}]}], ",", 
        "x"}], "]"}], ",", "x", ",", 
      RowBox[{"x", "^", "n"}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "m", ",", "n"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"p", ",", "1"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", 
     RowBox[{"Simplify", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"m", "+", "1"}], ")"}], "/", "n"}], "]"}], 
     "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.4928302625720215`*^9, 3.4928303000920744`*^9}, {
   3.4928305645624447`*^9, 3.4928305746224585`*^9}, {3.4930994731463027`*^9, 
   3.4930995793864517`*^9}, {3.494000871289543*^9, 3.494000871296543*^9}, {
   3.4940178019527435`*^9, 3.4940178274122*^9}, 3.5487323946014557`*^9, 
   3.5487326480149503`*^9, 3.5851544095366898`*^9, {3.585155517940237*^9, 
   3.585155518985439*^9}, {3.5851561195084934`*^9, 3.58515612893091*^9}, {
   3.5860255404975452`*^9, 3.5860255405075455`*^9}, 3.5860256583652163`*^9, {
   3.5860263966912823`*^9, 3.586026423146321*^9}, {3.5860557709702168`*^9, 
   3.5860557731542206`*^9}, {3.5861106637010365`*^9, 3.586110663721037*^9}, 
   3.5861109930214977`*^9, {3.5861117106625023`*^9, 3.586111721562518*^9}, 
   3.7152330940893335`*^9, {3.7190275870121775`*^9, 3.7190275975867825`*^9}, 
   3.7190791089319134`*^9, {3.7190792785016117`*^9, 3.7190792975497017`*^9}, {
   3.7190793475825634`*^9, 3.719079351618794*^9}, 3.720160281874096*^9, 
   3.7202005075315332`*^9, {3.736630995941375*^9, 3.7366309964314027`*^9}, {
   3.7458645628702145`*^9, 3.7458645968141565`*^9}, {3.745864651046258*^9, 
   3.745864664287016*^9}, {3.7458646966978693`*^9, 3.745864703390252*^9}, {
   3.74586714946916*^9, 3.7458671500731945`*^9}, 3.745894990112546*^9, 
   3.745908452823569*^9, 3.746051330951223*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["4.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{"p", "-", "1"}], "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
       RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.5505953688729563`*^9, 3.5505953726861744`*^9}, {
   3.550619508681926*^9, 3.5506195174954305`*^9}, {3.551326301250945*^9, 
   3.551326301841979*^9}, {3.552150760656293*^9, 3.552150761436294*^9}, 
   3.5521509768882723`*^9, {3.5521510341403728`*^9, 3.5521510486171985`*^9}, {
   3.5521511118909097`*^9, 3.5521511159313164`*^9}, 3.55215165895267*^9, 
   3.552151705315952*^9, 3.553532182175474*^9, {3.553559669357978*^9, 
   3.553559705888029*^9}, {3.5535602318087654`*^9, 3.5535602417087793`*^9}, 
   3.553617594461242*^9, 3.553617658031331*^9, {3.553617950531741*^9, 
   3.5536179652017612`*^9}, 3.553966022285333*^9, 3.555724618644946*^9, 
   3.555812609537574*^9, {3.5559627392919617`*^9, 3.555962743401967*^9}, 
   3.556298517310848*^9, 3.5860254201573715`*^9, 3.5861106634710364`*^9, 
   3.6201611823678513`*^9, {3.7163996660727234`*^9, 3.716399676102297*^9}, {
   3.71641618663396*^9, 3.716416202802884*^9}, {3.7190226787074385`*^9, 
   3.7190226983635635`*^9}, 3.7366309932462206`*^9, {3.74586440980346*^9, 
   3.7458644353029184`*^9}, {3.745864761645584*^9, 3.745864761908599*^9}, {
   3.7458663284842024`*^9, 3.745866328780219*^9}, {3.7458920353255415`*^9, 
   3.745892035596557*^9}, {3.7458923882617283`*^9, 3.7458923882617283`*^9}, {
   3.7459029366310606`*^9, 3.7459029366310606`*^9}, {3.7459063601588755`*^9, 
   3.7459063604458914`*^9}, {3.7459441190188413`*^9, 3.745944144957325*^9}, 
   3.7459443195223093`*^9, 3.745946496386819*^9, {3.746043061703249*^9, 
   3.746043061703249*^9}, 3.746043683067789*^9, 3.7460506666772285`*^9, {
   3.7460507863490734`*^9, 3.7460507865250835`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{"p", "-", "1"}], "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
       RowBox[{"n", "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.5505953688729563`*^9, 3.5505953726861744`*^9}, {
   3.550619508681926*^9, 3.5506195174954305`*^9}, {3.551326301250945*^9, 
   3.551326301841979*^9}, {3.552150760656293*^9, 3.552150761436294*^9}, 
   3.5521509768882723`*^9, {3.5521510341403728`*^9, 3.5521510486171985`*^9}, {
   3.5521511118909097`*^9, 3.5521511159313164`*^9}, 3.55215165895267*^9, 
   3.552151705315952*^9, 3.553532182175474*^9, {3.553559669357978*^9, 
   3.553559705888029*^9}, {3.5535602318087654`*^9, 3.5535602417087793`*^9}, 
   3.553617594461242*^9, 3.553617658031331*^9, {3.553617950531741*^9, 
   3.5536179652017612`*^9}, 3.553966022285333*^9, 3.555724618644946*^9, 
   3.555812609537574*^9, {3.5559627392919617`*^9, 3.555962743401967*^9}, 
   3.556298517310848*^9, 3.5860254201573715`*^9, 3.5861106634710364`*^9, 
   3.6201611823678513`*^9, {3.7163996660727234`*^9, 3.716399676102297*^9}, {
   3.71641618663396*^9, 3.716416202802884*^9}, {3.7190226787074385`*^9, 
   3.7190226983635635`*^9}, 3.7366309932462206`*^9, {3.74586440980346*^9, 
   3.7458644353029184`*^9}, {3.745864761645584*^9, 3.745864761908599*^9}, {
   3.7458663284842024`*^9, 3.745866328780219*^9}, {3.7458920353255415`*^9, 
   3.745892035596557*^9}, {3.7458923882617283`*^9, 3.7458923882617283`*^9}, {
   3.7459029366310606`*^9, 3.7459029366310606`*^9}, {3.7459063601588755`*^9, 
   3.7459063604458914`*^9}, {3.7459441190188413`*^9, 3.745944144957325*^9}, 
   3.7459443195223093`*^9, 3.745946496386819*^9, {3.746043061703249*^9, 
   3.746043061703249*^9}, {3.746043634868032*^9, 3.746043649620876*^9}, 
   3.746043685868949*^9, 3.746050574788973*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{"p", "-", "1"}], "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
       RowBox[{"n", "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
       RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.550770598144562*^9, 3.550770659629079*^9}, {3.5507707252908344`*^9, 
   3.5507707474461017`*^9}, 3.5507880023630266`*^9, {3.5508017696214375`*^9, 
   3.5508017788269644`*^9}, {3.5508018116158395`*^9, 3.5508018116158395`*^9}, 
   3.5508018976437597`*^9, {3.5508021384015307`*^9, 3.550802155115487*^9}, {
   3.5508022151019173`*^9, 3.5508022151019173`*^9}, {3.550802487106476*^9, 
   3.5508025179152374`*^9}, {3.5508029261175857`*^9, 
   3.5508029342300496`*^9}, {3.5521511708590136`*^9, 3.5521511712334137`*^9}, 
   3.552151666269083*^9, {3.5535324250863676`*^9, 3.553532441643315*^9}, {
   3.553532476791325*^9, 3.553532477502366*^9}, {3.5535325810722895`*^9, 
   3.5535325810722895`*^9}, {3.553534924419321*^9, 3.5535349316017323`*^9}, {
   3.5535597570381007`*^9, 3.553559765608113*^9}, {3.553559900728302*^9, 
   3.55355990606831*^9}, 3.553560247968788*^9, {3.553560284118839*^9, 
   3.553560284268839*^9}, 3.553617750921461*^9, {3.5536177847415085`*^9, 
   3.553617790541517*^9}, 3.553618024341844*^9, {3.555773069849354*^9, 
   3.5557730797865715`*^9}, 3.5562984432807446`*^9, 3.5860254201673713`*^9, 
   3.5861106634910364`*^9, 3.6201611857730465`*^9, 3.716399686685902*^9, {
   3.716400479459246*^9, 3.7164005254918795`*^9}, {3.719022117402334*^9, 
   3.7190221180533714`*^9}, {3.719022828838026*^9, 3.7190228292670507`*^9}, {
   3.7190272303097754`*^9, 3.7190272305977917`*^9}, {3.7190761959423*^9, 
   3.7190761963213215`*^9}, {3.7190777587196856`*^9, 
   3.7190777587196856`*^9}, {3.719078781771201*^9, 3.719078796060018*^9}, {
   3.7190789495097947`*^9, 3.7190789536680326`*^9}, {3.7190795980898914`*^9, 
   3.7190795982489004`*^9}, {3.7190946072854714`*^9, 3.719094614394878*^9}, {
   3.7366179132780895`*^9, 3.736617915000188*^9}, 3.7366224025078583`*^9, {
   3.7366235464732895`*^9, 3.7366235466683006`*^9}, {3.7458949320842266`*^9, 
   3.7458949322922387`*^9}, {3.74589496693522*^9, 3.74589496693522*^9}, {
   3.7459071942615833`*^9, 3.745907194453594*^9}, {3.745907840467544*^9, 
   3.745907840467544*^9}, {3.74594650077807*^9, 3.745946506346389*^9}, {
   3.7459465632366424`*^9, 3.7459465632366424`*^9}, 3.745951437298423*^9, {
   3.7459514933976316`*^9, 3.745951494490694*^9}, {3.7460441100752125`*^9, 
   3.746044120629816*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{{3.7190221262688413`*^9, 3.719022129603032*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"ArcTanh", "[", "z", "]"}], "\[Equal]", 
   RowBox[{
    FractionBox[
     RowBox[{"Log", "[", 
      RowBox[{"1", "+", "z"}], "]"}], "2"], "-", 
    FractionBox[
     RowBox[{"Log", "[", 
      RowBox[{"1", "-", "z"}], "]"}], "2"]}]}]],
  CellChangeTimes->{{3.7164000820815177`*^9, 3.7164001510404615`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{{3.7164000749121075`*^9, 3.716400075869162*^9}, 
   3.7164001604469995`*^9, {3.719022181028973*^9, 3.719022181028973*^9}, {
   3.719022443246971*^9, 3.719022443246971*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"ArcCoth", "[", "z", "]"}], "\[Equal]", 
   RowBox[{
    FractionBox[
     RowBox[{"Log", "[", 
      RowBox[{"1", "+", 
       SuperscriptBox["z", 
        RowBox[{"-", "1"}]]}], "]"}], "2"], "-", 
    FractionBox[
     RowBox[{"Log", "[", 
      RowBox[{"1", "-", 
       SuperscriptBox["z", 
        RowBox[{"-", "1"}]]}], "]"}], "2"]}]}]],
  CellChangeTimes->{{3.7164000820815177`*^9, 3.7164001510404615`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{{3.7164000749121075`*^9, 3.716400075869162*^9}, 
   3.7164001604469995`*^9, {3.719022181028973*^9, 3.719022181028973*^9}, {
   3.719022443246971*^9, 3.719022443246971*^9}, {3.7190225237215743`*^9, 
   3.7190225237215743`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"p", "-", "1"}], "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
   RowBox[{"n", "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
   RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, {
   3.5557730819861755`*^9, 3.5557730819861755`*^9}, {3.716400533673347*^9, 
   3.716400533673347*^9}, {3.7190221971868973`*^9, 3.71902219758792*^9}, {
   3.719077762616908*^9, 3.719077762616908*^9}, {3.719094699015718*^9, 
   3.719094699015718*^9}, {3.7458949669492207`*^9, 3.7458949669492207`*^9}, {
   3.745907842272647*^9, 3.745907842272647*^9}, {3.7459465658047895`*^9, 
   3.7459465658047895`*^9}, {3.7459515007890544`*^9, 
   3.7459515018591156`*^9}, {3.7460441364957237`*^9, 3.7460441364957237`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox["x", "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"ArcTanh", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       RowBox[{"ExpandIntegrand", "[", 
        RowBox[{
         RowBox[{
          SuperscriptBox["x", "m"], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"a", "+", 
             FractionBox[
              RowBox[{"b", " ", 
               RowBox[{"Log", "[", 
                RowBox[{"1", "+", 
                 RowBox[{"c", " ", 
                  SuperscriptBox["x", "n"]}]}], "]"}]}], "2"], "-", 
             FractionBox[
              RowBox[{"b", " ", 
               RowBox[{"Log", "[", 
                RowBox[{"1", "-", 
                 RowBox[{"c", " ", 
                  SuperscriptBox["x", "n"]}]}], "]"}]}], "2"]}], ")"}], 
           "p"]}], ",", "x"}], "]"}], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, {
   3.5860254201673713`*^9, 3.586025420177371*^9}, {3.586025740007834*^9, 
   3.586025749592848*^9}, {3.5861106634910364`*^9, 3.5861106635110364`*^9}, 
   3.5861109695214653`*^9, {3.716399960384557*^9, 3.7164000301995497`*^9}, {
   3.719022217090036*^9, 3.719022309698333*^9}, {3.7190224174124937`*^9, 
   3.7190224187365694`*^9}, {3.7190228336443005`*^9, 3.71902283905361*^9}, {
   3.7459465209242225`*^9, 3.7459465231803513`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c_.", "*", 
           RowBox[{"x_", "^", "n_"}]}], "]"}]}]}], ")"}], "^", "p_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{"ExpandIntegrand", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", "m"}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{
             RowBox[{"Log", "[", 
              RowBox[{"1", "+", 
               RowBox[{"c", "*", 
                RowBox[{"x", "^", "n"}]}]}], "]"}], "/", "2"}]}], "-", 
           RowBox[{"b", "*", 
            RowBox[{
             RowBox[{"Log", "[", 
              RowBox[{"1", "-", 
               RowBox[{"c", "*", 
                RowBox[{"x", "^", "n"}]}]}], "]"}], "/", "2"}]}]}], ")"}], 
         "^", "p"}]}], ",", "x"}], "]"}], ",", "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"p", ",", "1"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"n", ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "m", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.5487323697700357`*^9, 3.548732623831567*^9, 
   3.5557730871809845`*^9, 3.5557731175542383`*^9, {3.586025535907539*^9, 
   3.5860255404775457`*^9}, 3.586025650415205*^9, {3.5860257756853857`*^9, 
   3.5860257965654154`*^9}, {3.5861106635210366`*^9, 3.5861106635410366`*^9}, 
   3.586110982611483*^9, 3.7152316663926735`*^9, {3.7164001898156796`*^9, 
   3.71640023614633*^9}, {3.7164003509708967`*^9, 3.716400443386183*^9}, 
   3.719022331420575*^9, 3.71902237259093*^9, {3.719022847864114*^9, 
   3.7190228560945845`*^9}, {3.719077764848036*^9, 3.7190777894174414`*^9}, {
   3.719078806259601*^9, 3.7190788153001184`*^9}, 3.719078959988394*^9, {
   3.7190947114894314`*^9, 3.719094715323651*^9}, 3.7201602819511003`*^9, 
   3.720200507556535*^9, 3.7366179228956394`*^9, 3.7458949901595483`*^9, 
   3.745908482304255*^9, {3.745946528060631*^9, 3.7459465758363633`*^9}, {
   3.745951505108301*^9, 3.745951509476551*^9}, {3.746044140000924*^9, 
   3.746044141983037*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"ArcCoth", "[", 
          RowBox[{"c_.", "*", 
           RowBox[{"x_", "^", "n_"}]}], "]"}]}]}], ")"}], "^", "p_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{"ExpandIntegrand", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", "m"}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{
             RowBox[{"Log", "[", 
              RowBox[{"1", "+", 
               RowBox[{
                RowBox[{"x", "^", 
                 RowBox[{"(", 
                  RowBox[{"-", "n"}], ")"}]}], "/", "c"}]}], "]"}], "/", 
             "2"}]}], "-", 
           RowBox[{"b", "*", 
            RowBox[{
             RowBox[{"Log", "[", 
              RowBox[{"1", "-", 
               RowBox[{
                RowBox[{"x", "^", 
                 RowBox[{"(", 
                  RowBox[{"-", "n"}], ")"}]}], "/", "c"}]}], "]"}], "/", 
             "2"}]}]}], ")"}], "^", "p"}]}], ",", "x"}], "]"}], ",", "x"}], 
    "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"p", ",", "1"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"n", ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "m", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.5487323697700357`*^9, 3.548732623831567*^9, 
   3.5557730871809845`*^9, 3.5557731175542383`*^9, {3.586025535907539*^9, 
   3.5860255404775457`*^9}, 3.586025650415205*^9, {3.5860257756853857`*^9, 
   3.5860257965654154`*^9}, {3.5861106635210366`*^9, 3.5861106635410366`*^9}, 
   3.586110982611483*^9, 3.7152316663926735`*^9, {3.7164001898156796`*^9, 
   3.71640023614633*^9}, {3.7164003509708967`*^9, 3.716400443386183*^9}, 
   3.719022331420575*^9, 3.71902237259093*^9, {3.7190225312450047`*^9, 
   3.7190225750955124`*^9}, {3.719022849571212*^9, 3.7190228627209635`*^9}, 
   3.719077798822979*^9, 3.7190947193958836`*^9, 3.720160306853524*^9, 
   3.720200521949358*^9, 3.7366179256787987`*^9, 3.745894990168549*^9, 
   3.7459084854084325`*^9, {3.745946531300816*^9, 3.745946578124494*^9}, 
   3.7459515165089536`*^9, {3.746044143671134*^9, 3.746044145982266*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{"p", "-", "1"}], "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
       RowBox[{"n", "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
       RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalF]"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.550770598144562*^9, 3.550770659629079*^9}, {3.5507707252908344`*^9, 
   3.5507707474461017`*^9}, 3.5507880023630266`*^9, {3.5508017696214375`*^9, 
   3.5508017788269644`*^9}, {3.5508018116158395`*^9, 3.5508018116158395`*^9}, 
   3.5508018976437597`*^9, {3.5508021384015307`*^9, 3.550802155115487*^9}, {
   3.5508022151019173`*^9, 3.5508022151019173`*^9}, {3.550802487106476*^9, 
   3.5508025179152374`*^9}, {3.5508029261175857`*^9, 
   3.5508029342300496`*^9}, {3.5521511708590136`*^9, 3.5521511712334137`*^9}, 
   3.552151666269083*^9, {3.5535324250863676`*^9, 3.553532441643315*^9}, {
   3.553532476791325*^9, 3.553532477502366*^9}, {3.5535325810722895`*^9, 
   3.5535325810722895`*^9}, {3.553534924419321*^9, 3.5535349316017323`*^9}, {
   3.5535597570381007`*^9, 3.553559765608113*^9}, {3.553559900728302*^9, 
   3.55355990606831*^9}, 3.553560247968788*^9, {3.553560284118839*^9, 
   3.553560284268839*^9}, 3.553617750921461*^9, {3.5536177847415085`*^9, 
   3.553617790541517*^9}, 3.5536180162118325`*^9, {3.5536181502920203`*^9, 
   3.553618158782032*^9}, {3.553618200642091*^9, 3.553618200642091*^9}, {
   3.5536187940529213`*^9, 3.5536187975029263`*^9}, {3.5536190562932887`*^9, 
   3.553619059143293*^9}, {3.55577497216809*^9, 3.5557749735780916`*^9}, 
   3.5562986340610123`*^9, {3.5851540460779514`*^9, 3.5851540460779514`*^9}, {
   3.585156115967287*^9, 3.585156143594936*^9}, 3.5851562214234724`*^9, 
   3.5860254202373714`*^9, 3.5861106636710367`*^9, {3.586318752735836*^9, 
   3.586318753595837*^9}, 3.620161190430313*^9, {3.7190275410575495`*^9, 
   3.7190275614987183`*^9}, 3.7190287537149096`*^9, {3.7190292198615713`*^9, 
   3.7190292202115917`*^9}, {3.7190790616792107`*^9, 
   3.7190790806342945`*^9}, {3.7366235229739456`*^9, 3.736623526741161*^9}, 
   3.7366309939822626`*^9, {3.7458640007970657`*^9, 3.745864004988306*^9}, {
   3.745864160742214*^9, 3.745864162574319*^9}, {3.7458642593678555`*^9, 
   3.7458642593678555`*^9}, 3.7458644471095934`*^9, {3.7458655420852227`*^9, 
   3.745865551144741*^9}, {3.7458662802534437`*^9, 3.745866280420453*^9}, {
   3.7458920408128557`*^9, 3.7458920410048666`*^9}, {3.7458923881937246`*^9, 
   3.7458923881947246`*^9}, 3.74590273469351*^9, {3.745941988266969*^9, 
   3.745941993284256*^9}, {3.745944197372323*^9, 3.7459442078819237`*^9}, 
   3.7459443163781295`*^9, 3.7459467106440735`*^9, {3.7460427474452744`*^9, 
   3.746042778551053*^9}, 3.7460428840530877`*^9, {3.7460430410580683`*^9, 
   3.7460430490065227`*^9}, {3.746043099787427*^9, 3.746043101359517*^9}, {
   3.7460432490359635`*^9, 3.746043252765177*^9}, {3.7460442105239573`*^9, 
   3.74604421073197*^9}, {3.7460442605468187`*^9, 3.7460442605468187`*^9}, {
   3.746050553732768*^9, 3.7460505556208763`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by substitution", "Subsubsection",
 CellChangeTimes->{{3.493099207935931*^9, 3.4930992149659414`*^9}, {
  3.7190790922529593`*^9, 3.7190790947771034`*^9}}],

Cell[TextData[{
 "Basis: If ",
 Cell[BoxData[
  RowBox[{"k", "\[Element]", 
   SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]],
 ", then ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"F", "[", "x", "]"}], "\[Equal]", 
   RowBox[{"k", " ", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{
       SuperscriptBox["x", 
        RowBox[{"k", "-", "1"}]], " ", 
       RowBox[{"F", "[", 
        SuperscriptBox["x", "k"], "]"}]}], ",", "x", ",", 
      SuperscriptBox["x", 
       RowBox[{"1", "/", "k"}]]}], "]"}], " ", 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     SuperscriptBox["x", 
      RowBox[{"1", "/", "k"}]]}]}]}]], "Input",
  CellChangeTimes->{{3.496607156053342*^9, 3.4966071870033855`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.496441803031353*^9, 3.4965396318089237`*^9, {3.4966002562016735`*^9, 
   3.4966002624716825`*^9}, 3.496600707442305*^9, 3.4966008475725017`*^9, {
   3.4966070255131593`*^9, 3.496607032413169*^9}, {3.496607078713234*^9, 
   3.4966070808932366`*^9}, {3.4966071978234005`*^9, 3.496607200693404*^9}, {
   3.4966322361067057`*^9, 3.4966322383967094`*^9}, {3.5182408053387165`*^9, 
   3.518240855102804*^9}, {3.518240891700468*^9, 3.5182409026360874`*^9}, {
   3.5182410660151744`*^9, 3.5182410727231865`*^9}, {3.51824110908685*^9, 
   3.5182411327052917`*^9}, {3.518241193217798*^9, 3.5182411959634027`*^9}, {
   3.518291448974951*^9, 3.5182914676169834`*^9}, {3.518291524323083*^9, 
   3.51829153976711*^9}, {3.518291575631573*^9, 3.518291589562398*^9}, {
   3.5182917514854827`*^9, 3.5182917625459023`*^9}, {3.5197703785418744`*^9, 
   3.5197704585544147`*^9}, {3.5197823003612146`*^9, 3.519782301297216*^9}, {
   3.5327273625227003`*^9, 3.532727372032713*^9}, {3.5330847121896152`*^9, 
   3.533084735369648*^9}, {3.533085202270302*^9, 3.5330852300403404`*^9}, {
   3.5330855269607563`*^9, 3.5330855372607703`*^9}, {3.533085675350964*^9, 
   3.533085678880969*^9}, {3.533085724121032*^9, 3.533085727061036*^9}, {
   3.533086048201486*^9, 3.5330860543014946`*^9}, {3.533087161943045*^9, 
   3.5330871737730618`*^9}, {3.533087596973654*^9, 3.533087624703693*^9}, {
   3.5330880821743336`*^9, 3.5330880821743336`*^9}, {3.5330881138943777`*^9, 
   3.533088126024395*^9}, {3.5362820775082874`*^9, 3.5362821103483334`*^9}, {
   3.613355450820037*^9, 3.613355457570047*^9}, {3.613355779670498*^9, 
   3.613355779670498*^9}, {3.613356168641042*^9, 3.613356168641042*^9}, {
   3.613669569847045*^9, 3.613669602397091*^9}, 3.613679965449111*^9, {
   3.613758903601014*^9, 3.613758925459264*^9}, {3.613775676664378*^9, 
   3.6137756776314335`*^9}, {3.745865614608371*^9, 3.7458656230578537`*^9}, {
   3.7459421676862316`*^9, 3.7459421676862316`*^9}, {3.7459425881302795`*^9, 
   3.7459426094294977`*^9}, {3.7459426601714*^9, 3.7459426601714*^9}, {
   3.7459427507975836`*^9, 3.7459427726808352`*^9}, {3.7459445503255105`*^9, 
   3.7459445503255105`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"p", "-", "1"}], "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
   RowBox[{"n", "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
   RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalF]"}]}]]],
 ", let ",
 Cell[BoxData[
  RowBox[{"k", "\[Rule]", 
   RowBox[{"Denominator", "[", "m", "]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, {
   3.493098879405472*^9, 3.493098884745479*^9}, {3.493099207935931*^9, 
   3.4930992149659414`*^9}, 3.4930996737265835`*^9, 3.493099827186798*^9, {
   3.719027544234731*^9, 3.719027544235731*^9}, {3.71907910415464*^9, 
   3.71907910433465*^9}, {3.7458645410279655`*^9, 3.7458645410279655`*^9}, {
   3.7458656662883267`*^9, 3.745865666785355*^9}, {3.745892388206725*^9, 
   3.745892388206725*^9}, {3.745942015437523*^9, 3.745942018384692*^9}, {
   3.7459427949611096`*^9, 3.745942838292588*^9}, {3.7459445892057343`*^9, 
   3.7459445892057343`*^9}, {3.746042902687154*^9, 3.7460429058463345`*^9}, {
   3.7460431092689695`*^9, 3.7460431092689695`*^9}, {3.7460442617648883`*^9, 
   3.746044261765888*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox["x", "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"ArcTanh", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "k"}]}], " ", 
   RowBox[{"Subst", "[", 
    RowBox[{
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox["x", 
        RowBox[{
         RowBox[{"k", " ", 
          RowBox[{"(", 
           RowBox[{"m", "+", "1"}], ")"}]}], "-", "1"}]], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"ArcTanh", "[", 
            RowBox[{"c", " ", 
             SuperscriptBox["x", 
              RowBox[{"k", " ", "n"}]]}], "]"}]}]}], ")"}], "p"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",", 
     SuperscriptBox["x", 
      RowBox[{"1", "/", "k"}]]}], "]"}]}]}]], "Subsubtitle",
 CellChangeTimes->{{3.493098332554706*^9, 3.4930984922049294`*^9}, {
   3.4930985835950575`*^9, 3.4930986777351894`*^9}, {3.4930988533254347`*^9, 
   3.4930988578754416`*^9}, {3.493099207935931*^9, 3.4930992149659414`*^9}, {
   3.4930993574561405`*^9, 3.493099400886202*^9}, {3.493099526816378*^9, 
   3.49309953534639*^9}, 3.4931705981281786`*^9, {3.493170768098417*^9, 
   3.4931708122284784`*^9}, {3.494013179298343*^9, 3.4940132717176294`*^9}, {
   3.4940167360667787`*^9, 3.494016736987831*^9}, {3.494016997482731*^9, 
   3.4940169979477572`*^9}, {3.553618588562634*^9, 3.553618601552652*^9}, {
   3.5852097202839603`*^9, 3.585209729863973*^9}, {3.5860254202373714`*^9, 
   3.5860254202473717`*^9}, {3.586026341328703*^9, 3.5860263530137196`*^9}, {
   3.586055711254512*^9, 3.586055714124917*^9}, {3.586110663681037*^9, 
   3.5861106636910367`*^9}, {3.586111433842115*^9, 3.5861114521921406`*^9}, 
   3.586111502612211*^9, 3.5861115683523035`*^9, {3.719027548496975*^9, 
   3.7190275552003584`*^9}, {3.7190791166363535`*^9, 3.719079162435973*^9}, {
   3.7366309946793027`*^9, 3.736630995248335*^9}, 3.7458642786859603`*^9, {
   3.745864499293578*^9, 3.7458645072530336`*^9}, {3.7458655913490405`*^9, 
   3.7458655983734426`*^9}, {3.7459428623789654`*^9, 
   3.7459428844492283`*^9}, {3.7459442436979723`*^9, 3.7459442443780117`*^9}, 
   3.745944412969654*^9, {3.7459446069297485`*^9, 3.7459446418257437`*^9}, {
   3.7459467113581142`*^9, 3.745946711910146*^9}, 3.7460428550694304`*^9, 
   3.746042886868249*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c_.", "*", 
           RowBox[{"x_", "^", "n_"}]}], "]"}]}]}], ")"}], "^", "p_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"k", "=", 
       RowBox[{"Denominator", "[", "m", "]"}]}], "}"}], ",", "\n", "  ", 
     RowBox[{"k", "*", 
      RowBox[{"Subst", "[", 
       RowBox[{
        RowBox[{"Int", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"x", "^", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"k", "*", 
               RowBox[{"(", 
                RowBox[{"m", "+", "1"}], ")"}]}], "-", "1"}], ")"}]}], "*", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"a", "+", 
              RowBox[{"b", "*", 
               RowBox[{"ArcTanh", "[", 
                RowBox[{"c", "*", 
                 RowBox[{"x", "^", 
                  RowBox[{"(", 
                   RowBox[{"k", "*", "n"}], ")"}]}]}], "]"}]}]}], ")"}], "^", 
            "p"}]}], ",", "x"}], "]"}], ",", "x", ",", 
        RowBox[{"x", "^", 
         RowBox[{"(", 
          RowBox[{"1", "/", "k"}], ")"}]}]}], "]"}]}]}], "]"}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"p", ",", "1"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"n", ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"FractionQ", "[", "m", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.4928302625720215`*^9, 3.4928303000920744`*^9}, {
   3.4928305645624447`*^9, 3.4928305746224585`*^9}, {3.4930994731463027`*^9, 
   3.4930995793864517`*^9}, {3.494000871289543*^9, 3.494000871296543*^9}, {
   3.4940178019527435`*^9, 3.4940178274122*^9}, 3.5487323946014557`*^9, 
   3.5487326480149503`*^9, 3.5851544095366898`*^9, {3.585155517940237*^9, 
   3.585155518985439*^9}, {3.5851561195084934`*^9, 3.58515612893091*^9}, {
   3.5860255404975452`*^9, 3.5860255405075455`*^9}, 3.5860256583652163`*^9, {
   3.5860263966912823`*^9, 3.586026423146321*^9}, {3.5860557709702168`*^9, 
   3.5860557731542206`*^9}, {3.5861106637010365`*^9, 3.586110663721037*^9}, 
   3.5861109930214977`*^9, {3.5861117106625023`*^9, 3.586111721562518*^9}, 
   3.7152330940893335`*^9, {3.7190275870121775`*^9, 3.7190275975867825`*^9}, 
   3.7190791089319134`*^9, {3.7190792785016117`*^9, 3.7190792975497017`*^9}, {
   3.7190793475825634`*^9, 3.719079351618794*^9}, 3.720160281874096*^9, 
   3.7202005075315332`*^9, {3.736630995941375*^9, 3.7366309964314027`*^9}, {
   3.7458645628702145`*^9, 3.7458645968141565`*^9}, {3.745864651046258*^9, 
   3.745864664287016*^9}, {3.745865559734232*^9, 3.745865585990734*^9}, {
   3.7458657252226973`*^9, 3.745865725389707*^9}, 3.745892262426531*^9, 
   3.745892405198697*^9, {3.745942957252392*^9, 3.745943024372231*^9}, 
   3.7459443343731585`*^9, {3.745944678284829*^9, 3.745944706492443*^9}, {
   3.745946712480179*^9, 3.7459467143502855`*^9}, {3.746043337071999*^9, 
   3.7460433438953896`*^9}, 3.7460443000550785`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"ArcCoth", "[", 
          RowBox[{"c_.", "*", 
           RowBox[{"x_", "^", "n_"}]}], "]"}]}]}], ")"}], "^", "p_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"k", "=", 
       RowBox[{"Denominator", "[", "m", "]"}]}], "}"}], ",", "\n", "  ", 
     RowBox[{"k", "*", 
      RowBox[{"Subst", "[", 
       RowBox[{
        RowBox[{"Int", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"x", "^", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"k", "*", 
               RowBox[{"(", 
                RowBox[{"m", "+", "1"}], ")"}]}], "-", "1"}], ")"}]}], "*", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"a", "+", 
              RowBox[{"b", "*", 
               RowBox[{"ArcCoth", "[", 
                RowBox[{"c", "*", 
                 RowBox[{"x", "^", 
                  RowBox[{"(", 
                   RowBox[{"k", "*", "n"}], ")"}]}]}], "]"}]}]}], ")"}], "^", 
            "p"}]}], ",", "x"}], "]"}], ",", "x", ",", 
        RowBox[{"x", "^", 
         RowBox[{"(", 
          RowBox[{"1", "/", "k"}], ")"}]}]}], "]"}]}]}], "]"}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"p", ",", "1"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"n", ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"FractionQ", "[", "m", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.4928302625720215`*^9, 3.4928303000920744`*^9}, {
   3.4928305645624447`*^9, 3.4928305746224585`*^9}, {3.4930994731463027`*^9, 
   3.4930995793864517`*^9}, {3.494000871289543*^9, 3.494000871296543*^9}, {
   3.4940178019527435`*^9, 3.4940178274122*^9}, 3.5487323946014557`*^9, 
   3.5487326480149503`*^9, 3.5851544095366898`*^9, {3.585155517940237*^9, 
   3.585155518985439*^9}, {3.5851561195084934`*^9, 3.58515612893091*^9}, {
   3.5860255404975452`*^9, 3.5860255405075455`*^9}, 3.5860256583652163`*^9, {
   3.5860263966912823`*^9, 3.586026423146321*^9}, {3.5860557709702168`*^9, 
   3.5860557731542206`*^9}, {3.5861106637010365`*^9, 3.586110663721037*^9}, 
   3.5861109930214977`*^9, {3.5861117106625023`*^9, 3.586111721562518*^9}, 
   3.7152330940893335`*^9, {3.7190275870121775`*^9, 3.7190275975867825`*^9}, 
   3.7190791089319134`*^9, {3.7190792785016117`*^9, 3.7190792975497017`*^9}, {
   3.7190793475825634`*^9, 3.719079351618794*^9}, 3.720160281874096*^9, 
   3.7202005075315332`*^9, {3.736630995941375*^9, 3.7366309964314027`*^9}, {
   3.7458645628702145`*^9, 3.7458645968141565`*^9}, {3.745864651046258*^9, 
   3.745864664287016*^9}, {3.745865559734232*^9, 3.745865585990734*^9}, {
   3.7458657252226973`*^9, 3.745865725389707*^9}, 3.745892262426531*^9, 
   3.745892405198697*^9, {3.745942957252392*^9, 3.745943024372231*^9}, 
   3.7459443343731585`*^9, {3.745944678284829*^9, 3.745944706492443*^9}, {
   3.745946712480179*^9, 3.7459467143502855`*^9}, {3.746043337071999*^9, 
   3.746043362127432*^9}, 3.746044302311208*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{"p", "-", "1"}], "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
       RowBox[{"n", "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.550770598144562*^9, 3.550770659629079*^9}, {3.5507707252908344`*^9, 
   3.5507707474461017`*^9}, 3.5507880023630266`*^9, {3.5508017696214375`*^9, 
   3.5508017788269644`*^9}, {3.5508018116158395`*^9, 3.5508018116158395`*^9}, 
   3.5508018976437597`*^9, {3.5508021384015307`*^9, 3.550802155115487*^9}, {
   3.5508022151019173`*^9, 3.5508022151019173`*^9}, {3.550802487106476*^9, 
   3.5508025179152374`*^9}, {3.5508029261175857`*^9, 
   3.5508029342300496`*^9}, {3.5521511708590136`*^9, 3.5521511712334137`*^9}, 
   3.552151666269083*^9, {3.5535324250863676`*^9, 3.553532441643315*^9}, {
   3.553532476791325*^9, 3.553532477502366*^9}, {3.5535325810722895`*^9, 
   3.5535325810722895`*^9}, {3.553534924419321*^9, 3.5535349316017323`*^9}, {
   3.5535597570381007`*^9, 3.553559765608113*^9}, {3.553559900728302*^9, 
   3.55355990606831*^9}, 3.553560247968788*^9, {3.553560284118839*^9, 
   3.553560284268839*^9}, 3.553617750921461*^9, {3.5536177847415085`*^9, 
   3.553617790541517*^9}, 3.553618024341844*^9, {3.555773069849354*^9, 
   3.5557730797865715`*^9}, 3.5562984432807446`*^9, 3.5860254201673713`*^9, 
   3.5861106634910364`*^9, 3.6201611857730465`*^9, 3.716399686685902*^9, {
   3.716400479459246*^9, 3.7164005254918795`*^9}, {3.719022117402334*^9, 
   3.7190221180533714`*^9}, {3.719027147127018*^9, 3.71902714734303*^9}, {
   3.7190776983002295`*^9, 3.7190777098708916`*^9}, {3.7366177524108877`*^9, 
   3.7366177538869724`*^9}, {3.7366230610955276`*^9, 3.736623062772623*^9}, {
   3.745866871005233*^9, 3.7458668712772484`*^9}, {3.7458950281127195`*^9, 
   3.7458950281127195`*^9}, {3.745895108356309*^9, 3.74589510854832*^9}, 
   3.7459058280044374`*^9, {3.7459463226668825`*^9, 3.7459463228658943`*^9}, {
   3.7459509421221004`*^9, 3.745950979386232*^9}, {3.7459510198925486`*^9, 
   3.7459510274409804`*^9}, {3.74595153620308*^9, 3.745951562306573*^9}, {
   3.746043658903407*^9, 3.746043660023471*^9}, {3.7460436907892303`*^9, 
   3.746043710348349*^9}, 3.746050595933182*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic simplification", "Subsubsection",
 CellChangeTimes->{{3.7190221262688413`*^9, 3.719022129603032*^9}, {
  3.745951391593809*^9, 3.7459513971681275`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"ArcTanh", "[", 
    SuperscriptBox["z", 
     RowBox[{"-", "1"}]], "]"}], "\[Equal]", 
   RowBox[{"ArcCoth", "[", "z", "]"}]}]],
  CellChangeTimes->{{3.7164000820815177`*^9, 3.7164001510404615`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{{3.7164000749121075`*^9, 3.716400075869162*^9}, 
   3.7164001604469995`*^9, {3.719022181028973*^9, 3.719022181028973*^9}, {
   3.719022443246971*^9, 3.719022443246971*^9}, {3.7459511267476606`*^9, 
   3.7459511267476606`*^9}, {3.7460438393617287`*^9, 
   3.7460438393617287`*^9}, {3.746043883843272*^9, 3.746043883843272*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"p", "-", "1"}], "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
   RowBox[{"n", "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, {
   3.5557730819861755`*^9, 3.5557730819861755`*^9}, {3.716400533673347*^9, 
   3.716400533673347*^9}, {3.7190221971868973`*^9, 3.71902219758792*^9}, {
   3.719077718025358*^9, 3.719077718025358*^9}, {3.74589502812572*^9, 
   3.74589502812572*^9}, {3.7459509721008153`*^9, 3.7459509732268796`*^9}, {
   3.7459510384016075`*^9, 3.7459510384016075`*^9}, {3.7459515675648737`*^9, 
   3.7459515675648737`*^9}, {3.7460436641427064`*^9, 3.7460436649517527`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox["x", "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"ArcTanh", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox["x", "m"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"ArcCoth", "[", 
            FractionBox[
             SuperscriptBox["x", 
              RowBox[{"-", "n"}]], "c"], "]"}]}]}], ")"}], "p"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, {
   3.5860254201673713`*^9, 3.586025420177371*^9}, {3.586025740007834*^9, 
   3.586025749592848*^9}, {3.5861106634910364`*^9, 3.5861106635110364`*^9}, 
   3.5861109695214653`*^9, {3.716399960384557*^9, 3.7164000301995497`*^9}, {
   3.719022217090036*^9, 3.719022309698333*^9}, {3.7190224174124937`*^9, 
   3.7190224187365694`*^9}, {3.745951160731604*^9, 3.7459511946865463`*^9}, {
   3.7459515388362303`*^9, 3.7459515425634437`*^9}, {3.7460436930303583`*^9, 
   3.7460436949664693`*^9}, {3.7460505983183184`*^9, 3.7460506007424574`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c_.", "*", 
           RowBox[{"x_", "^", "n_"}]}], "]"}]}]}], ")"}], "^", "p_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"x", "^", "m"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"ArcCoth", "[", 
           RowBox[{
            RowBox[{"x", "^", 
             RowBox[{"(", 
              RowBox[{"-", "n"}], ")"}]}], "/", "c"}], "]"}]}]}], ")"}], "^", 
       "p"}]}], ",", "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "m"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"p", ",", "1"}], "]"}], " ", "&&", " ", 
    RowBox[{"ILtQ", "[", 
     RowBox[{"n", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.5487323697700357`*^9, 3.548732623831567*^9, 
   3.5557730871809845`*^9, 3.5557731175542383`*^9, {3.586025535907539*^9, 
   3.5860255404775457`*^9}, 3.586025650415205*^9, {3.5860257756853857`*^9, 
   3.5860257965654154`*^9}, {3.5861106635210366`*^9, 3.5861106635410366`*^9}, 
   3.586110982611483*^9, 3.7152316663926735`*^9, {3.7164001898156796`*^9, 
   3.71640023614633*^9}, {3.7164003509708967`*^9, 3.716400443386183*^9}, 
   3.719022331420575*^9, 3.71902237259093*^9, {3.7190777193984365`*^9, 
   3.7190777243647203`*^9}, 3.7201601860846167`*^9, 3.7202005074895306`*^9, 
   3.73661776117939*^9, 3.74589501221481*^9, 3.745907960383403*^9, {
   3.7459509849325495`*^9, 3.7459509912119083`*^9}, {3.7459512099084167`*^9, 
   3.7459512103164406`*^9}, 3.7459513309723415`*^9, {3.7459515848058596`*^9, 
   3.7459516313805237`*^9}, {3.745951696228233*^9, 3.7459516964122434`*^9}, {
   3.7460436687899723`*^9, 3.746043670030043*^9}, {3.7460439351362066`*^9, 
   3.7460439447017536`*^9}, {3.746043989247301*^9, 3.7460439905343747`*^9}, {
   3.746044026303421*^9, 3.746044026518433*^9}, {3.7460506114150677`*^9, 
   3.746050620790604*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"ArcCoth", "[", 
          RowBox[{"c_.", "*", 
           RowBox[{"x_", "^", "n_"}]}], "]"}]}]}], ")"}], "^", "p_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"x", "^", "m"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"ArcTanh", "[", 
           RowBox[{
            RowBox[{"x", "^", 
             RowBox[{"(", 
              RowBox[{"-", "n"}], ")"}]}], "/", "c"}], "]"}]}]}], ")"}], "^", 
       "p"}]}], ",", "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "m"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"p", ",", "1"}], "]"}], " ", "&&", " ", 
    RowBox[{"ILtQ", "[", 
     RowBox[{"n", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.5487323697700357`*^9, 3.548732623831567*^9, 
   3.5557730871809845`*^9, 3.5557731175542383`*^9, {3.586025535907539*^9, 
   3.5860255404775457`*^9}, 3.586025650415205*^9, {3.5860257756853857`*^9, 
   3.5860257965654154`*^9}, {3.5861106635210366`*^9, 3.5861106635410366`*^9}, 
   3.586110982611483*^9, 3.7152316663926735`*^9, {3.7164001898156796`*^9, 
   3.71640023614633*^9}, {3.7164003509708967`*^9, 3.716400443386183*^9}, 
   3.719022331420575*^9, 3.71902237259093*^9, {3.7190777193984365`*^9, 
   3.7190777243647203`*^9}, 3.7201601860846167`*^9, 3.7202005074895306`*^9, 
   3.73661776117939*^9, 3.74589501221481*^9, 3.745907960383403*^9, {
   3.7459509849325495`*^9, 3.7459509912119083`*^9}, {3.7459512099084167`*^9, 
   3.7459512103164406`*^9}, 3.7459513309723415`*^9, {3.7459515848058596`*^9, 
   3.7459516313805237`*^9}, {3.745951696228233*^9, 3.7459516964122434`*^9}, {
   3.7460436687899723`*^9, 3.746043670030043*^9}, {3.7460439351362066`*^9, 
   3.7460439947416153`*^9}, {3.7460440297106156`*^9, 3.746044032373768*^9}, {
   3.746050613622194*^9, 3.7460506243498077`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["5:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{"p", "-", "1"}], "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
       RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalF]"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.550770598144562*^9, 3.550770659629079*^9}, {3.5507707252908344`*^9, 
   3.5507707474461017`*^9}, 3.5507880023630266`*^9, {3.5508017696214375`*^9, 
   3.5508017788269644`*^9}, {3.5508018116158395`*^9, 3.5508018116158395`*^9}, 
   3.5508018976437597`*^9, {3.5508021384015307`*^9, 3.550802155115487*^9}, {
   3.5508022151019173`*^9, 3.5508022151019173`*^9}, {3.550802487106476*^9, 
   3.5508025179152374`*^9}, {3.5508029261175857`*^9, 
   3.5508029342300496`*^9}, {3.5521511708590136`*^9, 3.5521511712334137`*^9}, 
   3.552151666269083*^9, {3.5535324250863676`*^9, 3.553532441643315*^9}, {
   3.553532476791325*^9, 3.553532477502366*^9}, {3.5535325810722895`*^9, 
   3.5535325810722895`*^9}, {3.553534924419321*^9, 3.5535349316017323`*^9}, {
   3.5535597570381007`*^9, 3.553559765608113*^9}, {3.553559900728302*^9, 
   3.55355990606831*^9}, 3.553560247968788*^9, {3.553560284118839*^9, 
   3.553560284268839*^9}, 3.553617750921461*^9, {3.5536177847415085`*^9, 
   3.553617790541517*^9}, 3.5536180162118325`*^9, {3.5536181502920203`*^9, 
   3.553618158782032*^9}, {3.553618200642091*^9, 3.553618200642091*^9}, {
   3.5536187940529213`*^9, 3.5536187975029263`*^9}, {3.5536190562932887`*^9, 
   3.553619059143293*^9}, {3.55577497216809*^9, 3.5557749735780916`*^9}, 
   3.5562986340610123`*^9, {3.5851540460779514`*^9, 3.5851540460779514`*^9}, {
   3.585156115967287*^9, 3.585156143594936*^9}, 3.5851562214234724`*^9, 
   3.5860254202373714`*^9, 3.5861106636710367`*^9, {3.586318752735836*^9, 
   3.586318753595837*^9}, 3.620161190430313*^9, {3.7190275410575495`*^9, 
   3.7190275614987183`*^9}, 3.7190287537149096`*^9, {3.7190292198615713`*^9, 
   3.7190292202115917`*^9}, {3.7190790616792107`*^9, 
   3.7190790806342945`*^9}, {3.7366235229739456`*^9, 3.736623526741161*^9}, 
   3.7366309939822626`*^9, {3.7458640007970657`*^9, 3.745864004988306*^9}, {
   3.745864160742214*^9, 3.745864162574319*^9}, {3.7458642593678555`*^9, 
   3.7458642593678555`*^9}, 3.7458644471095934`*^9, {3.7458655420852227`*^9, 
   3.745865551144741*^9}, {3.7458662802534437`*^9, 3.745866280420453*^9}, {
   3.7458920408128557`*^9, 3.7458920410048666`*^9}, {3.7458923881937246`*^9, 
   3.7458923881947246`*^9}, 3.74590273469351*^9, {3.745941988266969*^9, 
   3.745941993284256*^9}, {3.745944197372323*^9, 3.7459442078819237`*^9}, 
   3.7459443163781295`*^9, 3.7459467106440735`*^9, {3.746044384101886*^9, 
   3.746044404062027*^9}, {3.7460444489565954`*^9, 3.7460444511487207`*^9}, {
   3.74604450760695*^9, 3.746044507838963*^9}, {3.7460507205973125`*^9, 
   3.7460507216283712`*^9}, {3.746050787893162*^9, 3.746050788093173*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by substitution", "Subsubsection",
 CellChangeTimes->{{3.493099207935931*^9, 3.4930992149659414`*^9}, {
  3.7190790922529593`*^9, 3.7190790947771034`*^9}}],

Cell[TextData[{
 "Basis: If ",
 Cell[BoxData[
  RowBox[{"k", "\[Element]", 
   SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]],
 ", then ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"F", "[", "x", "]"}], "\[Equal]", 
   RowBox[{"k", " ", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{
       SuperscriptBox["x", 
        RowBox[{"k", "-", "1"}]], " ", 
       RowBox[{"F", "[", 
        SuperscriptBox["x", "k"], "]"}]}], ",", "x", ",", 
      SuperscriptBox["x", 
       RowBox[{"1", "/", "k"}]]}], "]"}], " ", 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     SuperscriptBox["x", 
      RowBox[{"1", "/", "k"}]]}]}]}]], "Input",
  CellChangeTimes->{{3.496607156053342*^9, 3.4966071870033855`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.496441803031353*^9, 3.4965396318089237`*^9, {3.4966002562016735`*^9, 
   3.4966002624716825`*^9}, 3.496600707442305*^9, 3.4966008475725017`*^9, {
   3.4966070255131593`*^9, 3.496607032413169*^9}, {3.496607078713234*^9, 
   3.4966070808932366`*^9}, {3.4966071978234005`*^9, 3.496607200693404*^9}, {
   3.4966322361067057`*^9, 3.4966322383967094`*^9}, {3.5182408053387165`*^9, 
   3.518240855102804*^9}, {3.518240891700468*^9, 3.5182409026360874`*^9}, {
   3.5182410660151744`*^9, 3.5182410727231865`*^9}, {3.51824110908685*^9, 
   3.5182411327052917`*^9}, {3.518241193217798*^9, 3.5182411959634027`*^9}, {
   3.518291448974951*^9, 3.5182914676169834`*^9}, {3.518291524323083*^9, 
   3.51829153976711*^9}, {3.518291575631573*^9, 3.518291589562398*^9}, {
   3.5182917514854827`*^9, 3.5182917625459023`*^9}, {3.5197703785418744`*^9, 
   3.5197704585544147`*^9}, {3.5197823003612146`*^9, 3.519782301297216*^9}, {
   3.5327273625227003`*^9, 3.532727372032713*^9}, {3.5330847121896152`*^9, 
   3.533084735369648*^9}, {3.533085202270302*^9, 3.5330852300403404`*^9}, {
   3.5330855269607563`*^9, 3.5330855372607703`*^9}, {3.533085675350964*^9, 
   3.533085678880969*^9}, {3.533085724121032*^9, 3.533085727061036*^9}, {
   3.533086048201486*^9, 3.5330860543014946`*^9}, {3.533087161943045*^9, 
   3.5330871737730618`*^9}, {3.533087596973654*^9, 3.533087624703693*^9}, {
   3.5330880821743336`*^9, 3.5330880821743336`*^9}, {3.5330881138943777`*^9, 
   3.533088126024395*^9}, {3.5362820775082874`*^9, 3.5362821103483334`*^9}, {
   3.613355450820037*^9, 3.613355457570047*^9}, {3.613355779670498*^9, 
   3.613355779670498*^9}, {3.613356168641042*^9, 3.613356168641042*^9}, {
   3.613669569847045*^9, 3.613669602397091*^9}, 3.613679965449111*^9, {
   3.613758903601014*^9, 3.613758925459264*^9}, {3.613775676664378*^9, 
   3.6137756776314335`*^9}, {3.745865614608371*^9, 3.7458656230578537`*^9}, {
   3.7459421676862316`*^9, 3.7459421676862316`*^9}, {3.7459425881302795`*^9, 
   3.7459426094294977`*^9}, {3.7459426601714*^9, 3.7459426601714*^9}, {
   3.7459427507975836`*^9, 3.7459427726808352`*^9}, {3.7459445503255105`*^9, 
   3.7459445503255105`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"p", "-", "1"}], "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
   RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalF]"}], " ", "\[And]", " ", 
   RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", let ",
 Cell[BoxData[
  RowBox[{"k", "\[Rule]", 
   RowBox[{"Denominator", "[", "n", "]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, {
   3.493098879405472*^9, 3.493098884745479*^9}, {3.493099207935931*^9, 
   3.4930992149659414`*^9}, 3.4930996737265835`*^9, 3.493099827186798*^9, {
   3.719027544234731*^9, 3.719027544235731*^9}, {3.71907910415464*^9, 
   3.71907910433465*^9}, {3.7458645410279655`*^9, 3.7458645410279655`*^9}, {
   3.7458656662883267`*^9, 3.745865666785355*^9}, {3.745892388206725*^9, 
   3.745892388206725*^9}, {3.745942015437523*^9, 3.745942018384692*^9}, {
   3.7459427949611096`*^9, 3.745942838292588*^9}, {3.7459445892057343`*^9, 
   3.7459445892057343`*^9}, {3.746044410215379*^9, 3.746044410215379*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox["x", "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"ArcTanh", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "k"}]}], " ", 
   RowBox[{"Subst", "[", 
    RowBox[{
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox["x", 
        RowBox[{
         RowBox[{"k", " ", 
          RowBox[{"(", 
           RowBox[{"m", "+", "1"}], ")"}]}], "-", "1"}]], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"ArcTanh", "[", 
            RowBox[{"c", " ", 
             SuperscriptBox["x", 
              RowBox[{"k", " ", "n"}]]}], "]"}]}]}], ")"}], "p"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",", 
     SuperscriptBox["x", 
      RowBox[{"1", "/", "k"}]]}], "]"}]}]}]], "Subsubtitle",
 CellChangeTimes->{{3.493098332554706*^9, 3.4930984922049294`*^9}, {
   3.4930985835950575`*^9, 3.4930986777351894`*^9}, {3.4930988533254347`*^9, 
   3.4930988578754416`*^9}, {3.493099207935931*^9, 3.4930992149659414`*^9}, {
   3.4930993574561405`*^9, 3.493099400886202*^9}, {3.493099526816378*^9, 
   3.49309953534639*^9}, 3.4931705981281786`*^9, {3.493170768098417*^9, 
   3.4931708122284784`*^9}, {3.494013179298343*^9, 3.4940132717176294`*^9}, {
   3.4940167360667787`*^9, 3.494016736987831*^9}, {3.494016997482731*^9, 
   3.4940169979477572`*^9}, {3.553618588562634*^9, 3.553618601552652*^9}, {
   3.5852097202839603`*^9, 3.585209729863973*^9}, {3.5860254202373714`*^9, 
   3.5860254202473717`*^9}, {3.586026341328703*^9, 3.5860263530137196`*^9}, {
   3.586055711254512*^9, 3.586055714124917*^9}, {3.586110663681037*^9, 
   3.5861106636910367`*^9}, {3.586111433842115*^9, 3.5861114521921406`*^9}, 
   3.586111502612211*^9, 3.5861115683523035`*^9, {3.719027548496975*^9, 
   3.7190275552003584`*^9}, {3.7190791166363535`*^9, 3.719079162435973*^9}, {
   3.7366309946793027`*^9, 3.736630995248335*^9}, 3.7458642786859603`*^9, {
   3.745864499293578*^9, 3.7458645072530336`*^9}, {3.7458655913490405`*^9, 
   3.7458655983734426`*^9}, {3.7459428623789654`*^9, 
   3.7459428844492283`*^9}, {3.7459442436979723`*^9, 3.7459442443780117`*^9}, 
   3.745944412969654*^9, {3.7459446069297485`*^9, 3.7459446418257437`*^9}, {
   3.7459467113581142`*^9, 3.745946711910146*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c_.", "*", 
           RowBox[{"x_", "^", "n_"}]}], "]"}]}]}], ")"}], "^", "p_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"k", "=", 
       RowBox[{"Denominator", "[", "n", "]"}]}], "}"}], ",", "\n", "  ", 
     RowBox[{"k", "*", 
      RowBox[{"Subst", "[", 
       RowBox[{
        RowBox[{"Int", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"x", "^", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"k", "*", 
               RowBox[{"(", 
                RowBox[{"m", "+", "1"}], ")"}]}], "-", "1"}], ")"}]}], "*", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"a", "+", 
              RowBox[{"b", "*", 
               RowBox[{"ArcTanh", "[", 
                RowBox[{"c", "*", 
                 RowBox[{"x", "^", 
                  RowBox[{"(", 
                   RowBox[{"k", "*", "n"}], ")"}]}]}], "]"}]}]}], ")"}], "^", 
            "p"}]}], ",", "x"}], "]"}], ",", "x", ",", 
        RowBox[{"x", "^", 
         RowBox[{"(", 
          RowBox[{"1", "/", "k"}], ")"}]}]}], "]"}]}]}], "]"}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "m"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"p", ",", "1"}], "]"}], " ", "&&", " ", 
    RowBox[{"FractionQ", "[", "n", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.4928302625720215`*^9, 3.4928303000920744`*^9}, {
   3.4928305645624447`*^9, 3.4928305746224585`*^9}, {3.4930994731463027`*^9, 
   3.4930995793864517`*^9}, {3.494000871289543*^9, 3.494000871296543*^9}, {
   3.4940178019527435`*^9, 3.4940178274122*^9}, 3.5487323946014557`*^9, 
   3.5487326480149503`*^9, 3.5851544095366898`*^9, {3.585155517940237*^9, 
   3.585155518985439*^9}, {3.5851561195084934`*^9, 3.58515612893091*^9}, {
   3.5860255404975452`*^9, 3.5860255405075455`*^9}, 3.5860256583652163`*^9, {
   3.5860263966912823`*^9, 3.586026423146321*^9}, {3.5860557709702168`*^9, 
   3.5860557731542206`*^9}, {3.5861106637010365`*^9, 3.586110663721037*^9}, 
   3.5861109930214977`*^9, {3.5861117106625023`*^9, 3.586111721562518*^9}, 
   3.7152330940893335`*^9, {3.7190275870121775`*^9, 3.7190275975867825`*^9}, 
   3.7190791089319134`*^9, {3.7190792785016117`*^9, 3.7190792975497017`*^9}, {
   3.7190793475825634`*^9, 3.719079351618794*^9}, 3.720160281874096*^9, 
   3.7202005075315332`*^9, {3.736630995941375*^9, 3.7366309964314027`*^9}, {
   3.7458645628702145`*^9, 3.7458645968141565`*^9}, {3.745864651046258*^9, 
   3.745864664287016*^9}, {3.745865559734232*^9, 3.745865585990734*^9}, {
   3.7458657252226973`*^9, 3.745865725389707*^9}, 3.745892262426531*^9, 
   3.745892405198697*^9, {3.745942957252392*^9, 3.745943024372231*^9}, 
   3.7459443343731585`*^9, {3.745944678284829*^9, 3.745944706492443*^9}, {
   3.745946712480179*^9, 3.7459467143502855`*^9}, {3.746044528991173*^9, 
   3.746044550127382*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"ArcCoth", "[", 
          RowBox[{"c_.", "*", 
           RowBox[{"x_", "^", "n_"}]}], "]"}]}]}], ")"}], "^", "p_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"k", "=", 
       RowBox[{"Denominator", "[", "n", "]"}]}], "}"}], ",", "\n", "  ", 
     RowBox[{"k", "*", 
      RowBox[{"Subst", "[", 
       RowBox[{
        RowBox[{"Int", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"x", "^", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"k", "*", 
               RowBox[{"(", 
                RowBox[{"m", "+", "1"}], ")"}]}], "-", "1"}], ")"}]}], "*", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"a", "+", 
              RowBox[{"b", "*", 
               RowBox[{"ArcCoth", "[", 
                RowBox[{"c", "*", 
                 RowBox[{"x", "^", 
                  RowBox[{"(", 
                   RowBox[{"k", "*", "n"}], ")"}]}]}], "]"}]}]}], ")"}], "^", 
            "p"}]}], ",", "x"}], "]"}], ",", "x", ",", 
        RowBox[{"x", "^", 
         RowBox[{"(", 
          RowBox[{"1", "/", "k"}], ")"}]}]}], "]"}]}]}], "]"}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "m"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"p", ",", "1"}], "]"}], " ", "&&", " ", 
    RowBox[{"FractionQ", "[", "n", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.4928302625720215`*^9, 3.4928303000920744`*^9}, {
   3.4928305645624447`*^9, 3.4928305746224585`*^9}, {3.4930994731463027`*^9, 
   3.4930995793864517`*^9}, {3.494000871289543*^9, 3.494000871296543*^9}, {
   3.4940178019527435`*^9, 3.4940178274122*^9}, 3.5487323946014557`*^9, 
   3.5487326480149503`*^9, 3.5851544095366898`*^9, {3.585155517940237*^9, 
   3.585155518985439*^9}, {3.5851561195084934`*^9, 3.58515612893091*^9}, {
   3.5860255404975452`*^9, 3.5860255405075455`*^9}, 3.5860256583652163`*^9, {
   3.5860263966912823`*^9, 3.586026423146321*^9}, {3.5860557709702168`*^9, 
   3.5860557731542206`*^9}, {3.5861106637010365`*^9, 3.586110663721037*^9}, 
   3.5861109930214977`*^9, {3.5861117106625023`*^9, 3.586111721562518*^9}, 
   3.7152330940893335`*^9, {3.7190275870121775`*^9, 3.7190275975867825`*^9}, 
   3.7190791089319134`*^9, {3.7190792785016117`*^9, 3.7190792975497017`*^9}, {
   3.7190793475825634`*^9, 3.719079351618794*^9}, 3.720160281874096*^9, 
   3.7202005075315332`*^9, {3.736630995941375*^9, 3.7366309964314027`*^9}, {
   3.7458645628702145`*^9, 3.7458645968141565`*^9}, {3.745864651046258*^9, 
   3.745864664287016*^9}, {3.745865559734232*^9, 3.745865585990734*^9}, {
   3.7458657252226973`*^9, 3.745865725389707*^9}, 3.745892262426531*^9, 
   3.745892405198697*^9, {3.745942957252392*^9, 3.745943024372231*^9}, 
   3.7459443343731585`*^9, {3.745944678284829*^9, 3.7459447269246116`*^9}, {
   3.745946718852543*^9, 3.7459467204286337`*^9}, {3.746044536702614*^9, 
   3.7460445537985916`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["2:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", " ", "x"}], ")"}], "m"], " ", 
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"ArcTanh", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 
      " ", 
      RowBox[{"m", "\[NotEqual]", 
       RowBox[{"-", "1"}]}]}]]]], "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.550770598144562*^9, 3.550770659629079*^9}, {3.5507707252908344`*^9, 
   3.5507707474461017`*^9}, 3.5507880023630266`*^9, {3.5508017696214375`*^9, 
   3.5508017788269644`*^9}, {3.5508018116158395`*^9, 3.5508018116158395`*^9}, 
   3.5508018976437597`*^9, {3.5508021384015307`*^9, 3.550802155115487*^9}, {
   3.5508022151019173`*^9, 3.5508022151019173`*^9}, {3.550802487106476*^9, 
   3.5508025179152374`*^9}, {3.5508029261175857`*^9, 
   3.5508029342300496`*^9}, {3.5521511708590136`*^9, 3.5521511712334137`*^9}, 
   3.552151666269083*^9, {3.5535324250863676`*^9, 3.553532441643315*^9}, {
   3.553532476791325*^9, 3.553532477502366*^9}, {3.5535325810722895`*^9, 
   3.5535325810722895`*^9}, {3.553534924419321*^9, 3.5535349316017323`*^9}, {
   3.5535597570381007`*^9, 3.553559765608113*^9}, {3.553559900728302*^9, 
   3.55355990606831*^9}, 3.553560247968788*^9, {3.553560284118839*^9, 
   3.553560284268839*^9}, 3.553617750921461*^9, {3.5536177847415085`*^9, 
   3.553617790541517*^9}, 3.5536180162118325`*^9, {3.5536181773620586`*^9, 
   3.553618184892069*^9}, {3.5536184787824802`*^9, 3.5536184787824802`*^9}, {
   3.5536185303625526`*^9, 3.5536185303625526`*^9}, {3.553618804282936*^9, 
   3.5536188053529377`*^9}, 3.553966022715358*^9, {3.5557149676464005`*^9, 
   3.5557149676464005`*^9}, {3.555715015066467*^9, 3.555715015066467*^9}, 
   3.555715325186901*^9, {3.555721683865837*^9, 3.5557217174158845`*^9}, {
   3.5557220560763583`*^9, 3.555722056246359*^9}, {3.555722398856838*^9, 
   3.5557223990268383`*^9}, {3.555729434124188*^9, 3.5557294411241975`*^9}, {
   3.555729504284286*^9, 3.5557295051542873`*^9}, 3.555775173368371*^9, 
   3.556298635391014*^9, {3.5851540523959627`*^9, 3.5851540523959627`*^9}, {
   3.585154097292841*^9, 3.585154097292841*^9}, 3.5851562220162735`*^9, 
   3.5860254202573714`*^9, {3.586315733723834*^9, 3.586315733723834*^9}, 
   3.5863181381849756`*^9, 3.6201611909713435`*^9, {3.7190276491227303`*^9, 
   3.719027652298912*^9}, 3.719027684653763*^9, 3.7190287545879593`*^9, {
   3.7190288385937643`*^9, 3.719028866880382*^9}, 3.719029023615347*^9, 
   3.719029067829876*^9, 3.719079388540906*^9, {3.7190941088199606`*^9, 
   3.719094159290848*^9}, 3.74604870050977*^9, 3.746048820549636*^9, {
   3.746049209362875*^9, 3.7460492162232676`*^9}, {3.7460494885568438`*^9, 
   3.7460495432389717`*^9}, {3.746050776901533*^9, 3.7460507771245456`*^9}, {
   3.7460510008083396`*^9, 3.7460510010473533`*^9}, {3.7460510487460814`*^9, 
   3.746051057654591*^9}, 3.7460539213493853`*^9, {3.7460577492803297`*^9, 
   3.746057760359964*^9}, 3.746061867725892*^9, {3.7460621000001774`*^9, 
   3.746062100622213*^9}, 3.7460621611496744`*^9, {3.746062517280044*^9, 
   3.746062557352336*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{{3.493099207935931*^9, 3.4930992149659414`*^9}, {
   3.4940052861338797`*^9, 3.4940052928402634`*^9}, {3.554052882688694*^9, 
   3.554052897948715*^9}, {3.5540534414694767`*^9, 3.5540534433294787`*^9}, 
   3.555721426425477*^9}],

Cell[TextData[{
 "Basis:",
 " If  ",
 Cell[BoxData[
  RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"ArcTanh", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], "\[Equal]", 
   FractionBox[
    RowBox[{"b", " ", "c", " ", "n", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", " ", "x"}], ")"}], 
      RowBox[{"n", "-", "1"}]]}], 
    RowBox[{
     SuperscriptBox["d", 
      RowBox[{"n", "-", "1"}]], " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{
        SuperscriptBox["c", "2"], " ", 
        SuperscriptBox["x", 
         RowBox[{"2", " ", "n"}]]}]}], ")"}]}]]}]],
  CellChangeTimes->{{3.7164000820815177`*^9, 3.7164001510404615`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{{3.7164000749121075`*^9, 3.716400075869162*^9}, 
   3.7164001604469995`*^9, {3.7365669595598493`*^9, 3.7365669602978916`*^9}, {
   3.7365671753641925`*^9, 3.7365671826236076`*^9}, {3.73656721850566*^9, 
   3.73656721850566*^9}, {3.74604617607238*^9, 3.74604617607238*^9}, {
   3.7460462731769347`*^9, 3.7460462731769347`*^9}, {3.7460622480756464`*^9, 
   3.746062248076647*^9}, {3.7460627105821004`*^9, 3.746062714041298*^9}, {
   3.746062810292804*^9, 3.746062810292804*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", " ", 
   RowBox[{"m", "\[NotEqual]", 
    RowBox[{"-", "1"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, {
   3.493098879405472*^9, 3.493098884745479*^9}, {3.493099207935931*^9, 
   3.4930992149659414`*^9}, 3.4930996737265835`*^9, 3.493099827186798*^9, {
   3.4932434943005557`*^9, 3.493243522320595*^9}, {3.494005203823172*^9, 
   3.494005223116276*^9}, {3.494005912167687*^9, 3.494005912167687*^9}, {
   3.494005996704522*^9, 3.494006005111003*^9}, {3.4940117189798174`*^9, 
   3.494011721274949*^9}, {3.494011926169668*^9, 3.4940119289428267`*^9}, {
   3.4940120348468843`*^9, 3.494012036980006*^9}, {3.494013442081373*^9, 
   3.494013450779871*^9}, {3.5536184826024857`*^9, 3.5536184826024857`*^9}, {
   3.553618527502548*^9, 3.553618527502548*^9}, {3.5557150063264546`*^9, 
   3.5557150070964556`*^9}, {3.5557214656055317`*^9, 
   3.5557214656055317`*^9}, {3.5557217241458936`*^9, 
   3.5557217241458936`*^9}, {3.555729445104203*^9, 3.5557294457742043`*^9}, {
   3.5851541025188503`*^9, 3.5851541025188503`*^9}, {3.5863157450938497`*^9, 
   3.5863157450938497`*^9}, {3.7190276609994097`*^9, 
   3.7190276609994097`*^9}, {3.7190288418889527`*^9, 
   3.7190288420679626`*^9}, {3.7190942313589697`*^9, 
   3.7190942313589697`*^9}, {3.7460492244167356`*^9, 
   3.7460492244167356`*^9}, {3.7460495612800035`*^9, 
   3.7460495612810035`*^9}, {3.746051005767623*^9, 3.7460510059756355`*^9}, {
   3.746051073216481*^9, 3.746051073216481*^9}, {3.7460577713525925`*^9, 
   3.7460577713525925`*^9}, {3.746062534008001*^9, 3.7460625631286664`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", " ", "x"}], ")"}], "m"], " ", 
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"ArcTanh", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"d", " ", "x"}], ")"}], 
         RowBox[{"m", "+", "1"}]], 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"ArcTanh", "[", 
            RowBox[{"c", " ", 
             SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], 
       RowBox[{"d", " ", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"b", " ", "c", " ", "n"}], 
    RowBox[{
     SuperscriptBox["d", "n"], 
     RowBox[{"(", 
      RowBox[{"m", "+", "1"}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"d", " ", "x"}], ")"}], 
       RowBox[{"m", "+", "n"}]], 
      RowBox[{"1", "-", 
       RowBox[{
        SuperscriptBox["c", "2"], " ", 
        SuperscriptBox["x", 
         RowBox[{"2", " ", "n"}]]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellChangeTimes->{{3.493098332554706*^9, 3.4930984922049294`*^9}, {
   3.4930985835950575`*^9, 3.4930986777351894`*^9}, {3.4930988533254347`*^9, 
   3.4930988578754416`*^9}, {3.493099207935931*^9, 3.4930992149659414`*^9}, {
   3.4930993574561405`*^9, 3.493099400886202*^9}, {3.493099526816378*^9, 
   3.49309953534639*^9}, 3.4931705981281786`*^9, {3.493170768098417*^9, 
   3.4931708122284784`*^9}, {3.4940050446890697`*^9, 
   3.4940051357132764`*^9}, {3.494010254898077*^9, 3.4940102990006*^9}, {
   3.494010355515832*^9, 3.4940103650133753`*^9}, 3.4940116760473623`*^9, {
   3.4940156538678803`*^9, 3.494015661870338*^9}, {3.494015862381807*^9, 
   3.4940158673580914`*^9}, {3.5539680782425966`*^9, 3.553968085325009*^9}, {
   3.554437984948521*^9, 3.554437997758539*^9}, {3.5544380373785944`*^9, 
   3.5544380523386154`*^9}, {3.554438084958661*^9, 3.554438089888668*^9}, 
   3.5544381973088183`*^9, {3.5557186640891094`*^9, 3.5557186974791565`*^9}, 
   3.555721433285486*^9, 3.5557751270983067`*^9, {3.555775173878372*^9, 
   3.5557751751283736`*^9}, {3.5860254202573714`*^9, 3.586025420267371*^9}, {
   3.5860264816789055`*^9, 3.5860265104739475`*^9}, 3.5861116554024253`*^9, {
   3.586318138194976*^9, 3.5863181382049756`*^9}, 3.5863182639051514`*^9, {
   3.719027688509983*^9, 3.7190276932052517`*^9}, {3.7190288725377054`*^9, 
   3.719028884217374*^9}, {3.7460488222867355`*^9, 3.7460488607669363`*^9}, {
   3.7460489011432457`*^9, 3.7460489199753227`*^9}, {3.7460489594145784`*^9, 
   3.7460489616477065`*^9}, {3.7460539253596144`*^9, 
   3.7460539289918222`*^9}, {3.746054060023317*^9, 3.7460540659996586`*^9}, {
   3.7460541609600897`*^9, 3.7460541699526043`*^9}, {3.7460542287049646`*^9, 
   3.746054237400462*^9}, {3.74606218519305*^9, 3.746062198640819*^9}, {
   3.746062309298148*^9, 3.7460623096311674`*^9}, {3.746062344056136*^9, 
   3.7460623441991444`*^9}, 3.7460623836814027`*^9, {3.746062575320364*^9, 
   3.74606260357598*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.4940053078671227`*^9, 3.494005310026246*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_", "*", "x_"}], ")"}], "^", "m_"}], "*", 
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"ArcTanh", "[", 
         RowBox[{"c_.", "*", 
          RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d", "*", "x"}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c", "*", 
           RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", " ", 
    "\[IndentingNewLine]", "  ", 
    RowBox[{"b", "*", "c", "*", 
     RowBox[{"n", "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"d", "^", "n"}], "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"d", "*", "x"}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "n"}], ")"}]}], "/", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{
           RowBox[{"c", "^", "2"}], "*", 
           RowBox[{"x", "^", 
            RowBox[{"(", 
             RowBox[{"2", "*", "n"}], ")"}]}]}]}], ")"}]}], ",", "x"}], 
      "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "m", ",", "n"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "n", "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.4928302625720215`*^9, 3.4928303000920744`*^9}, {
   3.4928305645624447`*^9, 3.4928305746224585`*^9}, {3.4930994731463027`*^9, 
   3.4930995793864517`*^9}, {3.4931708257484975`*^9, 3.493170933088648*^9}, {
   3.493170964658692*^9, 3.4931709750387063`*^9}, {3.493171201919024*^9, 
   3.493171205079028*^9}, {3.493171366199254*^9, 3.4931713665792546`*^9}, {
   3.4931715056494493`*^9, 3.49317150626945*^9}, {3.4932434733805265`*^9, 
   3.4932434776305323`*^9}, 3.4932442598016276`*^9, 3.4932444119118404`*^9, {
   3.494004039303565*^9, 3.4940040800098934`*^9}, {3.4940049144956236`*^9, 
   3.4940049151486607`*^9}, {3.4940049727389545`*^9, 3.4940049792463264`*^9}, 
   3.4940059089755044`*^9, {3.494006032487569*^9, 3.4940060554328814`*^9}, 
   3.4940094923844633`*^9, {3.4940103280942636`*^9, 3.4940103492304726`*^9}, {
   3.4940104554925504`*^9, 3.4940104824550924`*^9}, {3.4940117336926594`*^9, 
   3.494011876094804*^9}, {3.4940120191709876`*^9, 3.4940120264064016`*^9}, {
   3.4940134559001637`*^9, 3.4940134576452637`*^9}, {3.553968162183943*^9, 
   3.5539681851627836`*^9}, {3.554438058758624*^9, 3.554438059968626*^9}, 
   3.555714908126317*^9, 3.555715055236523*^9, 3.555718733889207*^9, 
   3.555721527285618*^9, {3.555721591635708*^9, 3.555721603375725*^9}, {
   3.555721660045804*^9, 3.555721679935832*^9}, {3.5557220722263813`*^9, 
   3.5557220760563865`*^9}, 3.5557225762470865`*^9, {3.5557294509142113`*^9, 
   3.555729470674239*^9}, 3.555775136288319*^9, {3.555775178048378*^9, 
   3.5557751804483814`*^9}, {3.585154065811986*^9, 3.585154078728809*^9}, {
   3.5860255405175457`*^9, 3.586025540527546*^9}, 3.5860256583752165`*^9, 
   3.586026499378931*^9, {3.5860265312364774`*^9, 3.5860265451714973`*^9}, {
   3.5863157512838583`*^9, 3.586315757463867*^9}, {3.586316277597108*^9, 
   3.5863162979371357`*^9}, {3.5863181382149754`*^9, 3.586318138234976*^9}, 
   3.586318266255155*^9, 3.706141512028139*^9, 3.7152323946093254`*^9, 
   3.7152330941323357`*^9, {3.7190276979055204`*^9, 3.719027733935581*^9}, 
   3.7190288472342587`*^9, {3.719028908781779*^9, 3.7190289530073085`*^9}, {
   3.7190290319118214`*^9, 3.7190290321398344`*^9}, 3.7190348369134474`*^9, {
   3.7190942848550296`*^9, 3.7190943040361266`*^9}, 3.720160281900097*^9, 
   3.7202005075395336`*^9, {3.746048997112735*^9, 3.746049049392725*^9}, {
   3.746049079848467*^9, 3.7460491110642524`*^9}, {3.746049176480994*^9, 
   3.746049176897018*^9}, {3.7460492837621303`*^9, 3.746049292224614*^9}, {
   3.7460493628496532`*^9, 3.7460493757443914`*^9}, {3.746049417144759*^9, 
   3.746049431688591*^9}, {3.746051010464892*^9, 3.7460510114399476`*^9}, {
   3.746051076961695*^9, 3.746051078648792*^9}, {3.7460539562173796`*^9, 
   3.746053982440879*^9}, {3.74605428229803*^9, 3.746054338490244*^9}, {
   3.7460577231868377`*^9, 3.746057728977169*^9}, {3.746062164321856*^9, 
   3.746062173010353*^9}, {3.7460628409235554`*^9, 3.7460628878892417`*^9}, {
   3.7460629350729403`*^9, 3.746062939209177*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_", "*", "x_"}], ")"}], "^", "m_"}], "*", 
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"ArcCoth", "[", 
         RowBox[{"c_.", "*", 
          RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d", "*", "x"}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{"ArcCoth", "[", 
          RowBox[{"c", "*", 
           RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", " ", 
    "\[IndentingNewLine]", "  ", 
    RowBox[{"b", "*", "c", "*", 
     RowBox[{"n", "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"d", "^", "n"}], "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"d", "*", "x"}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "n"}], ")"}]}], "/", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{
           RowBox[{"c", "^", "2"}], "*", 
           RowBox[{"x", "^", 
            RowBox[{"(", 
             RowBox[{"2", "*", "n"}], ")"}]}]}]}], ")"}]}], ",", "x"}], 
      "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "m", ",", "n"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "n", "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.4928302625720215`*^9, 3.4928303000920744`*^9}, {
   3.4928305645624447`*^9, 3.4928305746224585`*^9}, {3.4930994731463027`*^9, 
   3.4930995793864517`*^9}, {3.4931708257484975`*^9, 3.493170933088648*^9}, {
   3.493170964658692*^9, 3.4931709750387063`*^9}, {3.493171201919024*^9, 
   3.493171205079028*^9}, {3.493171366199254*^9, 3.4931713665792546`*^9}, {
   3.4931715056494493`*^9, 3.49317150626945*^9}, {3.4932434733805265`*^9, 
   3.4932434776305323`*^9}, 3.4932442598016276`*^9, 3.4932444119118404`*^9, {
   3.494004039303565*^9, 3.4940040800098934`*^9}, {3.4940049144956236`*^9, 
   3.4940049151486607`*^9}, {3.4940049727389545`*^9, 3.4940049792463264`*^9}, 
   3.4940059089755044`*^9, {3.494006032487569*^9, 3.4940060554328814`*^9}, 
   3.4940094923844633`*^9, {3.4940103280942636`*^9, 3.4940103492304726`*^9}, {
   3.4940104554925504`*^9, 3.4940104824550924`*^9}, {3.4940117336926594`*^9, 
   3.494011876094804*^9}, {3.4940120191709876`*^9, 3.4940120264064016`*^9}, {
   3.4940134559001637`*^9, 3.4940134576452637`*^9}, {3.553968162183943*^9, 
   3.5539681851627836`*^9}, {3.554438058758624*^9, 3.554438059968626*^9}, 
   3.555714908126317*^9, 3.555715055236523*^9, 3.555718733889207*^9, 
   3.555721527285618*^9, {3.555721591635708*^9, 3.555721603375725*^9}, {
   3.555721660045804*^9, 3.555721679935832*^9}, {3.5557220722263813`*^9, 
   3.5557220760563865`*^9}, 3.5557225762470865`*^9, {3.5557294509142113`*^9, 
   3.555729470674239*^9}, 3.555775136288319*^9, {3.555775178048378*^9, 
   3.5557751804483814`*^9}, {3.585154065811986*^9, 3.585154078728809*^9}, {
   3.5860255405175457`*^9, 3.586025540527546*^9}, 3.5860256583752165`*^9, 
   3.586026499378931*^9, {3.5860265312364774`*^9, 3.5860265451714973`*^9}, {
   3.5863157512838583`*^9, 3.586315757463867*^9}, {3.586316277597108*^9, 
   3.5863162979371357`*^9}, {3.5863181382149754`*^9, 3.586318138234976*^9}, 
   3.586318266255155*^9, 3.706141512028139*^9, 3.7152323946093254`*^9, 
   3.7152330941323357`*^9, {3.7190276979055204`*^9, 3.719027733935581*^9}, 
   3.7190288472342587`*^9, {3.719028908781779*^9, 3.7190289530073085`*^9}, {
   3.7190290319118214`*^9, 3.7190290321398344`*^9}, 3.7190348369134474`*^9, {
   3.7190942848550296`*^9, 3.7190943040361266`*^9}, 3.720160281900097*^9, 
   3.7202005075395336`*^9, {3.746048997112735*^9, 3.746049049392725*^9}, {
   3.746049079848467*^9, 3.7460491110642524`*^9}, {3.746049176480994*^9, 
   3.746049176897018*^9}, {3.7460492837621303`*^9, 3.746049292224614*^9}, {
   3.7460493628496532`*^9, 3.7460493757443914`*^9}, {3.746049417144759*^9, 
   3.746049431688591*^9}, {3.746051010464892*^9, 3.7460510114399476`*^9}, {
   3.746051076961695*^9, 3.746051078648792*^9}, {3.7460539562173796`*^9, 
   3.746053982440879*^9}, {3.74605428229803*^9, 3.746054338490244*^9}, {
   3.7460577231868377`*^9, 3.746057728977169*^9}, {3.746062164321856*^9, 
   3.746062173010353*^9}, {3.7460628409235554`*^9, 3.746062911721605*^9}, 
   3.7460629457705526`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["3:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", " ", "x"}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"ArcTanh", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{"p", "\[Element]", 
       SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"p", "\[Equal]", "1"}], " ", "\[Or]", " ", 
        RowBox[{
         RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalR]"}], "\[And]", 
         RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalR]"}]}]}], 
       ")"}]}]]]], "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, 
   3.5349738589369373`*^9, {3.534974327547593*^9, 3.5349743283975945`*^9}, {
   3.534974393117685*^9, 3.534974393117685*^9}, {3.5349744787078047`*^9, 
   3.5349744787078047`*^9}, {3.5349764892306194`*^9, 
   3.5349764933806252`*^9}, {3.534976628230814*^9, 3.534976629460816*^9}, {
   3.5349766735008774`*^9, 3.534976699300914*^9}, {3.5349767643910046`*^9, 
   3.5349767643910046`*^9}, {3.5368634552277966`*^9, 
   3.5368634554305973`*^9}, {3.5376546876311564`*^9, 3.537654689431159*^9}, {
   3.537654770411272*^9, 3.537654771161273*^9}, {3.53765481904134*^9, 
   3.5376548227113457`*^9}, {3.5376549845715723`*^9, 3.537654985291573*^9}, {
   3.537655336092064*^9, 3.5376553390320683`*^9}, {3.540318955737398*^9, 
   3.5403189643518906`*^9}, {3.540319219297473*^9, 3.5403192394856277`*^9}, {
   3.5403196339511895`*^9, 3.5403196339521894`*^9}, {3.554067090584589*^9, 
   3.554067092144591*^9}, {3.5540798345038347`*^9, 3.5540798366138372`*^9}, 
   3.575823529707754*^9, 3.6133313031417227`*^9, {3.6133313947718515`*^9, 
   3.613331433401905*^9}, {3.613331489901984*^9, 3.6133315246320333`*^9}, {
   3.6133414621059456`*^9, 3.6133415278960376`*^9}, 3.6133416606162233`*^9, {
   3.6133417490763474`*^9, 3.6133417492863474`*^9}, {3.613342131266882*^9, 
   3.6133421326268845`*^9}, {3.6133423007371197`*^9, 
   3.6133423007371197`*^9}, {3.6137576693184166`*^9, 
   3.6137576693184166`*^9}, {3.629919445005211*^9, 3.629919445005211*^9}, {
   3.6299276207376833`*^9, 3.6299276207376833`*^9}, {3.62994728300473*^9, 
   3.6299472842147317`*^9}, {3.62994741102291*^9, 3.6299474204729233`*^9}, {
   3.6299475883121624`*^9, 3.6299475885121627`*^9}, {3.6299480992838974`*^9, 
   3.6299480992838974`*^9}, {3.634320756187518*^9, 3.6343207564445333`*^9}, 
   3.6343244240683093`*^9, {3.6345916110273247`*^9, 3.634591611242337*^9}, 
   3.7458643910923896`*^9, {3.745864891926036*^9, 3.7458648994964685`*^9}, 
   3.7458671325571923`*^9, {3.7458949669132185`*^9, 3.7458949669132185`*^9}, {
   3.7459078381894135`*^9, 3.7459078381894135`*^9}, 3.7460502199736786`*^9, 
   3.746050420029121*^9, {3.7460504536060414`*^9, 3.746050454124071*^9}, {
   3.7460507261416297`*^9, 3.7460507264046445`*^9}, {3.7460508046051173`*^9, 
   3.7460508048611317`*^9}, {3.7460641541816697`*^9, 3.746064268992236*^9}, {
   3.746064359466411*^9, 3.746064359466411*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellChangeTimes->{
  3.49539151296132*^9, 3.495678787084699*^9, 3.4956789080048685`*^9, 
   3.4956790295250387`*^9, 3.495679129075178*^9, {3.495679335075466*^9, 
   3.4956793607555027`*^9}, {3.495679674485942*^9, 3.4956796884659615`*^9}, 
   3.5376557345726223`*^9, {3.5376557799226856`*^9, 3.537655785202693*^9}, {
   3.537655815842736*^9, 3.537655818002739*^9}, {3.6133315443620605`*^9, 
   3.6133315587220807`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", " ", "x"}], ")"}], "m"], 
     SuperscriptBox["x", "m"]]}], "\[Equal]", "0"}]], "Input",
  CellChangeTimes->{{3.496607156053342*^9, 3.4966071870033855`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.496441803031353*^9, 3.4965396318089237`*^9, {3.4966002562016735`*^9, 
   3.4966002624716825`*^9}, 3.496600707442305*^9, 3.4966008475725017`*^9, {
   3.4966070255131593`*^9, 3.496607032413169*^9}, {3.496607078713234*^9, 
   3.4966070808932366`*^9}, {3.4966071978234005`*^9, 3.496607200693404*^9}, {
   3.4966322361067057`*^9, 3.4966322383967094`*^9}, {3.5182408053387165`*^9, 
   3.518240855102804*^9}, {3.518240891700468*^9, 3.5182409026360874`*^9}, {
   3.5182410660151744`*^9, 3.5182410727231865`*^9}, {3.51824110908685*^9, 
   3.5182411327052917`*^9}, {3.518241193217798*^9, 3.5182411959634027`*^9}, {
   3.518291448974951*^9, 3.5182914676169834`*^9}, {3.518291524323083*^9, 
   3.51829153976711*^9}, {3.518291575631573*^9, 3.518291589562398*^9}, {
   3.5182917514854827`*^9, 3.5182917625459023`*^9}, {3.5197703785418744`*^9, 
   3.5197704585544147`*^9}, {3.5197801993811245`*^9, 3.5197802307059793`*^9}, 
   3.5197802678964443`*^9, {3.5349619561249747`*^9, 3.53496200984505*^9}, {
   3.5349621015651784`*^9, 3.534962104035182*^9}, {3.534962163665265*^9, 
   3.534962164115266*^9}, 3.534962219785344*^9, {3.5349640822679515`*^9, 
   3.534964083937954*^9}, {3.534965129279417*^9, 3.534965164959467*^9}, {
   3.5349652080495276`*^9, 3.5349652080495276`*^9}, {3.5349738936169853`*^9, 
   3.5349739085370064`*^9}, {3.53497393982705*^9, 3.5349739461470594`*^9}, {
   3.534974278407524*^9, 3.5349742971775503`*^9}, {3.5376550101816077`*^9, 
   3.537655049161662*^9}, {3.6133316299021807`*^9, 3.6133316299021807`*^9}, {
   3.745864973192684*^9, 3.745864973192684*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"p", "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"p", "\[Equal]", "1"}], " ", "\[Or]", " ", 
     RowBox[{
      RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalF]"}], "\[And]", 
      RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalF]"}]}]}], ")"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, {
   3.495391733731629*^9, 3.495391739521637*^9}, {3.495678797624714*^9, 
   3.4956788080547285`*^9}, 3.4956788502147875`*^9, {3.4956789897249827`*^9, 
   3.495679002425001*^9}, {3.495679072285098*^9, 3.4956790738051004`*^9}, {
   3.495679236085328*^9, 3.495679236315328*^9}, {3.49567937329552*^9, 
   3.4956794246455917`*^9}, {3.495679535505747*^9, 3.495679554085773*^9}, {
   3.5193214041603594`*^9, 3.5193214071867647`*^9}, {3.5193301244794507`*^9, 
   3.5193301257494526`*^9}, 3.5193476221390333`*^9, 3.5193479662828407`*^9, {
   3.5193485103181963`*^9, 3.5193485549498744`*^9}, {3.519663663325344*^9, 
   3.5196636652216225`*^9}, {3.519680530562682*^9, 3.519680530562682*^9}, {
   3.5197556284379497`*^9, 3.5197556284379497`*^9}, {3.5197580987514877`*^9, 
   3.519758100545491*^9}, {3.5197581334459496`*^9, 3.519758155582388*^9}, {
   3.519758193256454*^9, 3.5197582684329863`*^9}, {3.5197584793297567`*^9, 
   3.519758583210339*^9}, {3.5197800633332853`*^9, 3.519780130444603*^9}, 
   3.519780263762437*^9, {3.519780890789939*^9, 3.519780929602807*^9}, 
   3.5197826749958725`*^9, {3.5213126916874757`*^9, 3.5213126916874757`*^9}, {
   3.521328242751012*^9, 3.521328242751012*^9}, {3.532302339923381*^9, 
   3.5323023440533867`*^9}, {3.5323027369539366`*^9, 
   3.5323027369539366`*^9}, {3.5326362525142794`*^9, 
   3.5326362612742915`*^9}, {3.534962194665309*^9, 3.5349622042053223`*^9}, {
   3.5349623337055035`*^9, 3.5349623339155035`*^9}, {3.5349625695458336`*^9, 
   3.5349625695458336`*^9}, {3.5349651959395103`*^9, 
   3.5349652008995175`*^9}, {3.534966956776985*^9, 3.5349669586769876`*^9}, {
   3.5349743512176266`*^9, 3.5349743752476597`*^9}, {3.5349744860878153`*^9, 
   3.5349744860878153`*^9}, {3.5349767696610117`*^9, 
   3.5349767696610117`*^9}, {3.5376549183514795`*^9, 3.537654925391489*^9}, {
   3.5376558527827873`*^9, 3.5376558549427905`*^9}, {3.540318974011443*^9, 
   3.5403189740124435`*^9}, {3.5403192521593523`*^9, 
   3.5403192521593523`*^9}, {3.5403196364473324`*^9, 
   3.5403196364473324`*^9}, {3.613331418691885*^9, 3.613331418691885*^9}, {
   3.6133316443322005`*^9, 3.6133316443322005`*^9}, {3.613341537476051*^9, 
   3.613341537476051*^9}, {3.6133423256671543`*^9, 3.6133423256771545`*^9}, {
   3.613757669656436*^9, 3.613757669656436*^9}, {3.6299276215096846`*^9, 
   3.6299276359777136`*^9}, {3.6299473086057663`*^9, 3.629947309475767*^9}, {
   3.6299474223529263`*^9, 3.6299474223529263`*^9}, {3.629948156705978*^9, 
   3.629948156705978*^9}, 3.650217918788125*^9, {3.6502179964155655`*^9, 
   3.6502179968615904`*^9}, 3.6859048899188385`*^9, 3.6986842279417677`*^9, {
   3.745865013586994*^9, 3.745865028875869*^9}, {3.7458949669202194`*^9, 
   3.7458949669202194`*^9}, {3.7459078391104665`*^9, 
   3.7459078391104665`*^9}, {3.7460504793625145`*^9, 
   3.7460504793625145`*^9}, {3.746064275688619*^9, 3.746064275688619*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"d", " ", "x"}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"ArcTanh", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      RowBox[{
       SuperscriptBox["d", 
        RowBox[{"IntPart", "[", "m", "]"}]], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"d", " ", "x"}], ")"}], 
        RowBox[{"FracPart", "[", "m", "]"}]]}], 
      SuperscriptBox["x", 
       RowBox[{"FracPart", "[", "m", "]"}]]]}]}], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, 3.495391718911608*^9, 
   3.495391753851657*^9, 3.495678825124752*^9, 3.495678868624813*^9, 
   3.495678953284932*^9, 3.4956790561650763`*^9, {3.495679179585249*^9, 
   3.495679198215275*^9}, 3.4956794688056536`*^9, 3.495679563895787*^9, {
   3.519347698835971*^9, 3.519347728101622*^9}, {3.5193477739345026`*^9, 
   3.519347777538109*^9}, {3.5193478217797866`*^9, 3.5193478387838163`*^9}, {
   3.519348134591536*^9, 3.5193481428439503`*^9}, {3.5197576021246157`*^9, 
   3.519757605431822*^9}, {3.5197795700292187`*^9, 3.519779608935687*^9}, {
   3.534962149765246*^9, 3.5349621724552774`*^9}, {3.5349650775293446`*^9, 
   3.534965103459381*^9}, 3.534973862136942*^9, 3.5349742172974386`*^9, {
   3.5376547005611744`*^9, 3.5376547019811764`*^9}, 3.5376548382913675`*^9, 
   3.537654872901416*^9, {3.5376557039525795`*^9, 3.537655710162588*^9}, 
   3.6133314391819134`*^9, {3.613331574032102*^9, 3.6133316065621476`*^9}, 
   3.6133316845922565`*^9, 3.634324072854221*^9, 3.634324429380613*^9, 
   3.645495571621445*^9, {3.7458649856533966`*^9, 3.745865006532591*^9}, {
   3.745867133281234*^9, 3.7458671345253053`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_", "*", "x_"}], ")"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c_.", "*", 
           RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}], "^", "p_."}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"d", "^", 
     RowBox[{"IntPart", "[", "m", "]"}]}], "*", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d", "*", "x"}], ")"}], "^", 
      RowBox[{"FracPart", "[", "m", "]"}]}], "/", 
     RowBox[{"x", "^", 
      RowBox[{"FracPart", "[", "m", "]"}]}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"x", "^", "m"}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"ArcTanh", "[", 
            RowBox[{"c", "*", 
             RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "^", "p"}]}], ",", 
      "x"}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "m", ",", "n"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"p", ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"EqQ", "[", 
       RowBox[{"p", ",", "1"}], "]"}], " ", "||", " ", 
      RowBox[{"RationalQ", "[", 
       RowBox[{"m", ",", "n"}], "]"}]}], ")"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.495391490771289*^9, 3.495678779164688*^9, 3.495678914664878*^9, 
   3.4956790358650475`*^9, 3.4956791378551903`*^9, 3.495679302665421*^9, {
   3.5193479326803813`*^9, 3.5193479356131864`*^9}, {3.519347979776864*^9, 
   3.5193479832556705`*^9}, {3.5193480161873283`*^9, 
   3.5193480702102227`*^9}, {3.5193487359725924`*^9, 3.5193487540842237`*^9}, 
   3.5194031418919535`*^9, {3.519537682643176*^9, 3.5195377027796116`*^9}, {
   3.519663586710417*^9, 3.519663591016733*^9}, {3.5196636738117547`*^9, 
   3.5196636756855335`*^9}, {3.5197557036456814`*^9, 3.519755707592489*^9}, {
   3.5197580462573957`*^9, 3.5197580471153975`*^9}, {3.5197794253077645`*^9, 
   3.519779527940345*^9}, {3.519780679269167*^9, 3.5197807448204823`*^9}, {
   3.519780870665903*^9, 3.5197808753459115`*^9}, {3.519782705447126*^9, 
   3.5197827074283295`*^9}, {3.521312709487501*^9, 3.521312711317503*^9}, {
   3.5213281521208854`*^9, 3.5213281536908875`*^9}, {3.521328366941186*^9, 
   3.5213283702711906`*^9}, {3.532302303203329*^9, 3.532302306153333*^9}, {
   3.5323024650035553`*^9, 3.532302498163602*^9}, {3.5323645511745653`*^9, 
   3.5323645659845867`*^9}, {3.5323653060899005`*^9, 
   3.5323653076899023`*^9}, {3.5323656378903646`*^9, 3.532365640110368*^9}, {
   3.532635049695695*^9, 3.5326350838157425`*^9}, {3.5326351635458546`*^9, 
   3.532635166185858*^9}, {3.5326362105042205`*^9, 3.5326362114542217`*^9}, {
   3.534962133175223*^9, 3.5349621365852275`*^9}, {3.534962246225381*^9, 
   3.5349622579853973`*^9}, {3.5349623216554866`*^9, 3.534962323295489*^9}, {
   3.5349624064556055`*^9, 3.5349624168156195`*^9}, {3.5349635976572733`*^9, 
   3.534963625457312*^9}, {3.534965048419304*^9, 3.534965051519308*^9}, {
   3.534965279379627*^9, 3.5349653250596914`*^9}, {3.534974224337449*^9, 
   3.5349742359374647`*^9}, {3.5349744383377485`*^9, 3.5349744574377747`*^9}, 
   3.534974505747843*^9, {3.53497458234795*^9, 3.5349745843279524`*^9}, {
   3.534976082930051*^9, 3.5349761136600933`*^9}, {3.5349762518902874`*^9, 
   3.5349762528402886`*^9}, {3.534976423310527*^9, 3.534976427710533*^9}, {
   3.5349766416208324`*^9, 3.5349766453908377`*^9}, {3.5349767293309555`*^9, 
   3.534976741930973*^9}, {3.5349769358412447`*^9, 3.5349769375012474`*^9}, {
   3.5349774204519234`*^9, 3.534977424031928*^9}, {3.5349778231264896`*^9, 
   3.5349778808865705`*^9}, {3.5349779145866175`*^9, 
   3.5349779153066187`*^9}, {3.5349784783294077`*^9, 3.534978491289426*^9}, 
   3.5349785242894726`*^9, 3.534978568369534*^9, {3.534978623269611*^9, 
   3.5349786257496147`*^9}, {3.534978706949728*^9, 3.5349787434497795`*^9}, {
   3.5376542467705393`*^9, 3.537654338640668*^9}, {3.537654411210769*^9, 
   3.5376544413308115`*^9}, {3.537654885231433*^9, 3.537654885471433*^9}, {
   3.5376559246128883`*^9, 3.537655943882915*^9}, 3.540318615622945*^9, {
   3.5421598497119827`*^9, 3.5421598547622714`*^9}, {3.6133316642522287`*^9, 
   3.6133316686722345`*^9}, {3.6133317079522896`*^9, 3.613331718782305*^9}, {
   3.6133415428760586`*^9, 3.6133415613960843`*^9}, {3.613342348297186*^9, 
   3.6133423927372484`*^9}, 3.613757834734878*^9, 3.6141209716394897`*^9, {
   3.614176073459597*^9, 3.6141760911896114`*^9}, {3.6141776716530085`*^9, 
   3.61417770262878*^9}, {3.6141849581747737`*^9, 3.614184968547367*^9}, 
   3.629927681167802*^9, {3.6299472900047398`*^9, 3.6299472911247416`*^9}, {
   3.629947431282939*^9, 3.629947433492942*^9}, {3.629947464375986*^9, 
   3.6299474714089956`*^9}, {3.629948144745961*^9, 3.629948146805964*^9}, {
   3.6454955787662573`*^9, 3.6454956001568956`*^9}, 3.685905779536721*^9, {
   3.745864832520638*^9, 3.7458648702707973`*^9}, {3.74586507469549*^9, 
   3.7458651322067795`*^9}, {3.7458671351773424`*^9, 3.7458671375204763`*^9}, 
   3.7458949901425476`*^9, 3.745908467304397*^9, 3.7460500339350376`*^9, 
   3.7460504591913605`*^9, {3.746053072200816*^9, 3.7460530732868786`*^9}, 
   3.7460531073268256`*^9, {3.746055886035759*^9, 3.7460558975754185`*^9}, {
   3.746055945699171*^9, 3.746055949047363*^9}, {3.7460572092894444`*^9, 
   3.7460572427523584`*^9}, {3.7460574316641636`*^9, 
   3.7460574444398947`*^9}, {3.746063056666895*^9, 3.7460630612861595`*^9}, {
   3.746063902798291*^9, 3.7460639050404196`*^9}, {3.7460640928001585`*^9, 
   3.74606409369621*^9}, {3.7460642915285254`*^9, 3.746064322256283*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_", "*", "x_"}], ")"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"ArcCoth", "[", 
          RowBox[{"c_.", "*", 
           RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}], "^", "p_."}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"d", "^", 
     RowBox[{"IntPart", "[", "m", "]"}]}], "*", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d", "*", "x"}], ")"}], "^", 
      RowBox[{"FracPart", "[", "m", "]"}]}], "/", 
     RowBox[{"x", "^", 
      RowBox[{"FracPart", "[", "m", "]"}]}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"x", "^", "m"}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"ArcCoth", "[", 
            RowBox[{"c", "*", 
             RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "^", "p"}]}], ",", 
      "x"}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "m", ",", "n"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"p", ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"EqQ", "[", 
       RowBox[{"p", ",", "1"}], "]"}], " ", "||", " ", 
      RowBox[{"RationalQ", "[", 
       RowBox[{"m", ",", "n"}], "]"}]}], ")"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.495391490771289*^9, 3.495678779164688*^9, 3.495678914664878*^9, 
   3.4956790358650475`*^9, 3.4956791378551903`*^9, 3.495679302665421*^9, {
   3.5193479326803813`*^9, 3.5193479356131864`*^9}, {3.519347979776864*^9, 
   3.5193479832556705`*^9}, {3.5193480161873283`*^9, 
   3.5193480702102227`*^9}, {3.5193487359725924`*^9, 3.5193487540842237`*^9}, 
   3.5194031418919535`*^9, {3.519537682643176*^9, 3.5195377027796116`*^9}, {
   3.519663586710417*^9, 3.519663591016733*^9}, {3.5196636738117547`*^9, 
   3.5196636756855335`*^9}, {3.5197557036456814`*^9, 3.519755707592489*^9}, {
   3.5197580462573957`*^9, 3.5197580471153975`*^9}, {3.5197794253077645`*^9, 
   3.519779527940345*^9}, {3.519780679269167*^9, 3.5197807448204823`*^9}, {
   3.519780870665903*^9, 3.5197808753459115`*^9}, {3.519782705447126*^9, 
   3.5197827074283295`*^9}, {3.521312709487501*^9, 3.521312711317503*^9}, {
   3.5213281521208854`*^9, 3.5213281536908875`*^9}, {3.521328366941186*^9, 
   3.5213283702711906`*^9}, {3.532302303203329*^9, 3.532302306153333*^9}, {
   3.5323024650035553`*^9, 3.532302498163602*^9}, {3.5323645511745653`*^9, 
   3.5323645659845867`*^9}, {3.5323653060899005`*^9, 
   3.5323653076899023`*^9}, {3.5323656378903646`*^9, 3.532365640110368*^9}, {
   3.532635049695695*^9, 3.5326350838157425`*^9}, {3.5326351635458546`*^9, 
   3.532635166185858*^9}, {3.5326362105042205`*^9, 3.5326362114542217`*^9}, {
   3.534962133175223*^9, 3.5349621365852275`*^9}, {3.534962246225381*^9, 
   3.5349622579853973`*^9}, {3.5349623216554866`*^9, 3.534962323295489*^9}, {
   3.5349624064556055`*^9, 3.5349624168156195`*^9}, {3.5349635976572733`*^9, 
   3.534963625457312*^9}, {3.534965048419304*^9, 3.534965051519308*^9}, {
   3.534965279379627*^9, 3.5349653250596914`*^9}, {3.534974224337449*^9, 
   3.5349742359374647`*^9}, {3.5349744383377485`*^9, 3.5349744574377747`*^9}, 
   3.534974505747843*^9, {3.53497458234795*^9, 3.5349745843279524`*^9}, {
   3.534976082930051*^9, 3.5349761136600933`*^9}, {3.5349762518902874`*^9, 
   3.5349762528402886`*^9}, {3.534976423310527*^9, 3.534976427710533*^9}, {
   3.5349766416208324`*^9, 3.5349766453908377`*^9}, {3.5349767293309555`*^9, 
   3.534976741930973*^9}, {3.5349769358412447`*^9, 3.5349769375012474`*^9}, {
   3.5349774204519234`*^9, 3.534977424031928*^9}, {3.5349778231264896`*^9, 
   3.5349778808865705`*^9}, {3.5349779145866175`*^9, 
   3.5349779153066187`*^9}, {3.5349784783294077`*^9, 3.534978491289426*^9}, 
   3.5349785242894726`*^9, 3.534978568369534*^9, {3.534978623269611*^9, 
   3.5349786257496147`*^9}, {3.534978706949728*^9, 3.5349787434497795`*^9}, {
   3.5376542467705393`*^9, 3.537654338640668*^9}, {3.537654411210769*^9, 
   3.5376544413308115`*^9}, {3.537654885231433*^9, 3.537654885471433*^9}, {
   3.5376559246128883`*^9, 3.537655943882915*^9}, 3.540318615622945*^9, {
   3.5421598497119827`*^9, 3.5421598547622714`*^9}, {3.6133316642522287`*^9, 
   3.6133316686722345`*^9}, {3.6133317079522896`*^9, 3.613331718782305*^9}, {
   3.6133415428760586`*^9, 3.6133415613960843`*^9}, {3.613342348297186*^9, 
   3.6133423927372484`*^9}, 3.613757834734878*^9, 3.6141209716394897`*^9, {
   3.614176073459597*^9, 3.6141760911896114`*^9}, {3.6141776716530085`*^9, 
   3.61417770262878*^9}, {3.6141849581747737`*^9, 3.614184968547367*^9}, 
   3.629927681167802*^9, {3.6299472900047398`*^9, 3.6299472911247416`*^9}, {
   3.629947431282939*^9, 3.629947433492942*^9}, {3.629947464375986*^9, 
   3.6299474714089956`*^9}, {3.629948144745961*^9, 3.629948146805964*^9}, {
   3.6454955787662573`*^9, 3.6454956001568956`*^9}, 3.685905779536721*^9, {
   3.745864832520638*^9, 3.7458648702707973`*^9}, {3.74586507469549*^9, 
   3.7458651322067795`*^9}, {3.7458652036738667`*^9, 3.745865211287302*^9}, {
   3.7458671506712284`*^9, 3.745867151990304*^9}, 3.745894990151548*^9, 
   3.7459084692315073`*^9, 3.7460500371672225`*^9, 3.74605046459867*^9, {
   3.7460530768150806`*^9, 3.746053077167101*^9}, 3.7460531098229685`*^9, 
   3.746055978184029*^9, 3.746057487992385*^9, {3.7460640978644485`*^9, 
   3.746064098752499*^9}, {3.746064297928891*^9, 3.7460643265525284`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.5193409932043777`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["U:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", " ", "x"}], ")"}], "m"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"ArcTanh", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.550770598144562*^9, 3.550770659629079*^9}, {3.5507707252908344`*^9, 
   3.5507707474461017`*^9}, 3.5507880023630266`*^9, {3.5508017696214375`*^9, 
   3.5508017788269644`*^9}, {3.5508018116158395`*^9, 3.5508018116158395`*^9}, 
   3.5508018976437597`*^9, {3.5508021384015307`*^9, 3.550802155115487*^9}, {
   3.5508022151019173`*^9, 3.5508022151019173`*^9}, {3.550802487106476*^9, 
   3.5508025179152374`*^9}, {3.5508029261175857`*^9, 
   3.5508029342300496`*^9}, {3.5521511708590136`*^9, 3.5521511712334137`*^9}, 
   3.552151666269083*^9, {3.5535324250863676`*^9, 3.553532441643315*^9}, {
   3.553532476791325*^9, 3.553532477502366*^9}, {3.5535325810722895`*^9, 
   3.5535325810722895`*^9}, {3.553534924419321*^9, 3.5535349316017323`*^9}, {
   3.5535597570381007`*^9, 3.553559765608113*^9}, {3.553559900728302*^9, 
   3.55355990606831*^9}, 3.553560247968788*^9, {3.553560284118839*^9, 
   3.553560284268839*^9}, 3.553617750921461*^9, {3.5536177847415085`*^9, 
   3.553617790541517*^9}, 3.553618024341844*^9, 3.5536194761638765`*^9, {
   3.553619522793942*^9, 3.553619534763959*^9}, {3.553620017114634*^9, 
   3.553620058754692*^9}, {3.553620107854761*^9, 3.553620107854761*^9}, {
   3.5536201760248566`*^9, 3.553620176454857*^9}, {3.5536202411749477`*^9, 
   3.553620244394952*^9}, 3.5536208500158*^9, {3.5536209236859035`*^9, 
   3.5536209236859035`*^9}, {3.553621329336471*^9, 3.553621329526471*^9}, 
   3.553622842418589*^9, 3.553623031478854*^9, {3.5541351824384127`*^9, 
   3.554135207637854*^9}, {3.554135501657794*^9, 3.554135501860594*^9}, {
   3.5541401948572173`*^9, 3.554140195075618*^9}, {3.5541402752753587`*^9, 
   3.554140280594968*^9}, 3.5541623849245358`*^9, {3.5544855401492753`*^9, 
   3.5544855441492805`*^9}, {3.555811642936221*^9, 3.555811643346221*^9}, 
   3.555814044809583*^9, 3.55586319799642*^9, {3.5558634529632673`*^9, 
   3.555863453540468*^9}, {3.555873211355882*^9, 3.5558732180658913`*^9}, {
   3.5559585212360563`*^9, 3.555958557616107*^9}, {3.555962790172033*^9, 
   3.555962814752067*^9}, {3.5559630371023784`*^9, 3.555963048642395*^9}, {
   3.555963419682914*^9, 3.5559634198429146`*^9}, 3.5562986591110473`*^9, 
   3.5860254202773714`*^9, {3.586315779663898*^9, 3.5863157932439175`*^9}, {
   3.5863169834580956`*^9, 3.586316983608096*^9}, {3.586367963386326*^9, 
   3.586367963386326*^9}, {3.5863707247567973`*^9, 3.5863707247967973`*^9}, 
   3.5863712335650287`*^9, 3.586371494760404*^9, 3.5863719225960183`*^9, 
   3.620158528279046*^9, {3.7197653592262526`*^9, 3.7197653592262526`*^9}, 
   3.719781553085474*^9, 3.71978165878852*^9, 3.720127052949911*^9, 
   3.7363797239149375`*^9, 3.736380161414961*^9, 3.736568298218416*^9, 
   3.736626873745599*^9, 3.7460475498689575`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, {
   3.4807032170510798`*^9, 3.480703219724925*^9}, {3.480703363181205*^9, 
   3.480703382168507*^9}, 3.480703460921749*^9, {3.480705327535808*^9, 
   3.480705327856269*^9}, {3.492923482510395*^9, 3.4929235301528788`*^9}, {
   3.492923560276532*^9, 3.4929235623513355`*^9}, {3.4929245188358154`*^9, 
   3.4929245675391006`*^9}, {3.4929828355013185`*^9, 3.492982837903723*^9}, {
   3.493165951941674*^9, 3.493165958321683*^9}, 3.4931660117517576`*^9, {
   3.493252219687742*^9, 3.493252219687742*^9}, {3.4935813186420355`*^9, 
   3.493581344402072*^9}, {3.4940220183729095`*^9, 3.4940220212800756`*^9}, {
   3.553620890665857*^9, 3.553620890665857*^9}, {3.554135223683772*^9, 
   3.554135223683772*^9}, {3.55414034438348*^9, 3.5541403446642804`*^9}, {
   3.554485541739278*^9, 3.554485541739278*^9}, {3.555873277095974*^9, 
   3.555873277095974*^9}, {3.555958583216143*^9, 3.555958583216143*^9}, {
   3.555962845912111*^9, 3.555962845912111*^9}, 3.5863707208367915`*^9}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"d", " ", "x"}], ")"}], "m"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"ArcTanh", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"d", " ", "x"}], ")"}], "m"], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"ArcTanh", "[", 
            RowBox[{"c", " ", 
             SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellChangeTimes->{{3.493166154681958*^9, 3.4931662030820255`*^9}, 
   3.4931666207326107`*^9, {3.4932522463481894`*^9, 3.49325228099585*^9}, {
   3.4933158052693357`*^9, 3.4933158328693743`*^9}, {3.4933190308138514`*^9, 
   3.493319134053996*^9}, {3.4933192438441496`*^9, 3.4933192445541506`*^9}, {
   3.4933193363142796`*^9, 3.4933193414042864`*^9}, {3.493412534339759*^9, 
   3.493412536469762*^9}, {3.493789994101406*^9, 3.493790017041438*^9}, {
   3.4937903432618947`*^9, 3.4937903499119043`*^9}, {3.493791019842842*^9, 
   3.4937910517128863`*^9}, 3.493791106992964*^9, 3.49379132604327*^9, {
   3.4937915274235525`*^9, 3.493791535933564*^9}, {3.4937916827437696`*^9, 
   3.4937916869037757`*^9}, {3.494000871747569*^9, 3.4940008717505693`*^9}, {
   3.554134918375309*^9, 3.554134979953831*^9}, {3.5541351124444094`*^9, 
   3.5541351206638794`*^9}, 3.554140366644719*^9, {3.554485491439207*^9, 
   3.554485492939209*^9}, {3.5558636303979793`*^9, 3.555863635826789*^9}, {
   3.555866903741579*^9, 3.5558669058296986`*^9}, {3.555958592676156*^9, 
   3.5559585942461586`*^9}, {3.555962805112054*^9, 3.555962807082056*^9}, {
   3.555963050912398*^9, 3.5559630526124*^9}, {3.556298667641059*^9, 
   3.5562986681310596`*^9}, {3.5860254202773714`*^9, 
   3.5860254202873716`*^9}, {3.5863157962539215`*^9, 3.586315797983924*^9}, {
   3.58637123439503*^9, 3.5863712349150305`*^9}, {3.5863714963454065`*^9, 
   3.586371498330409*^9}, {3.586371924991022*^9, 3.5863719281010265`*^9}, {
   3.7197815539015207`*^9, 3.7197815543175445`*^9}, {3.7197816589585295`*^9, 
   3.7197816589635296`*^9}, {3.720127055480056*^9, 3.7201270583232183`*^9}, {
   3.7363797267230983`*^9, 3.736379729765272*^9}, {3.7365683001995296`*^9, 
   3.7365683018306227`*^9}, {3.736627032051653*^9, 3.7366270341157713`*^9}, {
   3.7460475520450816`*^9, 3.7460475537881813`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_.", "*", "x_"}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"ArcTanh", "[", 
          RowBox[{"c_.", "*", 
           RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}], "^", "p_."}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Unintegrable", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"d", "*", "x"}], ")"}], "^", "m"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"ArcTanh", "[", 
           RowBox[{"c", "*", 
            RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "^", "p"}]}], ",", 
     "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "a", ",", "b", ",", "c", ",", "d", ",", "m", ",", "n", ",", "p"}], 
      "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.4929226712309704`*^9, 3.4929226741793756`*^9}, {
   3.4929227061594315`*^9, 3.4929229312990274`*^9}, {3.492922998410345*^9, 
   3.492923016443977*^9}, {3.49292307539648*^9, 3.4929230998417234`*^9}, {
   3.492923399487049*^9, 3.49292339992385*^9}, {3.4929234702175736`*^9, 
   3.4929234715435762`*^9}, {3.4929236652023163`*^9, 3.49292366743312*^9}, 
   3.4929802336571484`*^9, {3.492982933672291*^9, 3.4929829505983205`*^9}, {
   3.4929832472016416`*^9, 3.4929833842790823`*^9}, {3.4929834529036026`*^9, 
   3.4929834542764053`*^9}, {3.493166117311906*^9, 3.493166138981936*^9}, {
   3.4931662751621265`*^9, 3.4931663186221876`*^9}, {3.4934126182898765`*^9, 
   3.493412622519882*^9}, {3.4935809700815477`*^9, 3.4935809719615507`*^9}, {
   3.493791136533005*^9, 3.4937911896730795`*^9}, 3.4937912549331713`*^9, {
   3.4938403406557693`*^9, 3.4938403671446157`*^9}, {3.4940008717605696`*^9, 
   3.49400087176457*^9}, 3.4940219212193527`*^9, 3.5486903743006315`*^9, {
   3.5487324587251234`*^9, 3.548732460208208*^9}, {3.548732730811686*^9, 
   3.548732736147991*^9}, {3.5541352991580887`*^9, 3.5541353413395014`*^9}, {
   3.5541402938081913`*^9, 3.5541403311390567`*^9}, {3.5541403721671286`*^9, 
   3.554140375427534*^9}, 3.554140423054418*^9, {3.5544854952692127`*^9, 
   3.5544855279792585`*^9}, {3.5558140527895947`*^9, 3.555814074569625*^9}, {
   3.5558636242359686`*^9, 3.555863646076007*^9}, {3.555873294705999*^9, 
   3.555873298326004*^9}, {3.555958612566184*^9, 3.5559586269962044`*^9}, {
   3.555958657236247*^9, 3.555958669896264*^9}, {3.5559587036863117`*^9, 
   3.555958714536327*^9}, {3.5559628608421316`*^9, 3.555962898172184*^9}, 
   3.555962928342226*^9, {3.555963176762574*^9, 3.5559632050226135`*^9}, {
   3.556298669071061*^9, 3.5562986703810625`*^9}, 3.5860255405375457`*^9, 
   3.5860256583852167`*^9, {3.5860265744815397`*^9, 3.586026575116541*^9}, {
   3.5863158576340075`*^9, 3.5863158742440305`*^9}, {3.586370728206802*^9, 
   3.5863707349618115`*^9}, {3.5863712386450357`*^9, 3.586371245735046*^9}, {
   3.5863715049154186`*^9, 3.5863715309904556`*^9}, {3.586371931291031*^9, 
   3.5863719338510346`*^9}, 3.712338196236747*^9, 3.7155500714324493`*^9, {
   3.7197815549455805`*^9, 3.719781556238654*^9}, 3.719781723200204*^9, 
   3.7197817777033215`*^9, 3.7197818101651783`*^9, {3.7201270653066177`*^9, 
   3.720127090417054*^9}, {3.736379684852703*^9, 3.7363798350062914`*^9}, {
   3.73637990613836*^9, 3.7363799454506087`*^9}, {3.7363799785935044`*^9, 
   3.736380073130912*^9}, 3.736380192602745*^9, {3.736568304277763*^9, 
   3.7365683061888723`*^9}, {3.736626888875464*^9, 3.736626961308607*^9}, {
   3.7366270172238054`*^9, 3.7366270176868315`*^9}, {3.736627076079171*^9, 
   3.736627077381246*^9}, {3.745907347398342*^9, 3.7459073546387563`*^9}, {
   3.7460474887504616`*^9, 3.7460475201892595`*^9}, 3.746047568463021*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_.", "*", "x_"}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"ArcCoth", "[", 
          RowBox[{"c_.", "*", 
           RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}], "^", "p_."}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Unintegrable", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"d", "*", "x"}], ")"}], "^", "m"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"ArcCoth", "[", 
           RowBox[{"c", "*", 
            RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "^", "p"}]}], ",", 
     "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "a", ",", "b", ",", "c", ",", "d", ",", "m", ",", "n", ",", "p"}], 
      "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.4929226712309704`*^9, 3.4929226741793756`*^9}, {
   3.4929227061594315`*^9, 3.4929229312990274`*^9}, {3.492922998410345*^9, 
   3.492923016443977*^9}, {3.49292307539648*^9, 3.4929230998417234`*^9}, {
   3.492923399487049*^9, 3.49292339992385*^9}, {3.4929234702175736`*^9, 
   3.4929234715435762`*^9}, {3.4929236652023163`*^9, 3.49292366743312*^9}, 
   3.4929802336571484`*^9, {3.492982933672291*^9, 3.4929829505983205`*^9}, {
   3.4929832472016416`*^9, 3.4929833842790823`*^9}, {3.4929834529036026`*^9, 
   3.4929834542764053`*^9}, {3.493166117311906*^9, 3.493166138981936*^9}, {
   3.4931662751621265`*^9, 3.4931663186221876`*^9}, {3.4934126182898765`*^9, 
   3.493412622519882*^9}, {3.4935809700815477`*^9, 3.4935809719615507`*^9}, {
   3.493791136533005*^9, 3.4937911896730795`*^9}, 3.4937912549331713`*^9, {
   3.4938403406557693`*^9, 3.4938403671446157`*^9}, {3.4940008717605696`*^9, 
   3.49400087176457*^9}, 3.4940219212193527`*^9, 3.5486903743006315`*^9, {
   3.5487324587251234`*^9, 3.548732460208208*^9}, {3.548732730811686*^9, 
   3.548732736147991*^9}, {3.5541352991580887`*^9, 3.5541353413395014`*^9}, {
   3.5541402938081913`*^9, 3.5541403311390567`*^9}, {3.5541403721671286`*^9, 
   3.554140375427534*^9}, 3.554140423054418*^9, {3.5544854952692127`*^9, 
   3.5544855279792585`*^9}, {3.5558140527895947`*^9, 3.555814074569625*^9}, {
   3.5558636242359686`*^9, 3.555863646076007*^9}, {3.555873294705999*^9, 
   3.555873298326004*^9}, {3.555958612566184*^9, 3.5559586269962044`*^9}, {
   3.555958657236247*^9, 3.555958669896264*^9}, {3.5559587036863117`*^9, 
   3.555958714536327*^9}, {3.5559628608421316`*^9, 3.555962898172184*^9}, 
   3.555962928342226*^9, {3.555963176762574*^9, 3.5559632050226135`*^9}, {
   3.556298669071061*^9, 3.5562986703810625`*^9}, 3.5860255405375457`*^9, 
   3.5860256583852167`*^9, {3.5860265744815397`*^9, 3.586026575116541*^9}, {
   3.5863158576340075`*^9, 3.5863158742440305`*^9}, {3.586370728206802*^9, 
   3.5863707349618115`*^9}, {3.5863712386450357`*^9, 3.586371245735046*^9}, {
   3.5863715049154186`*^9, 3.5863715309904556`*^9}, {3.586371931291031*^9, 
   3.5863719338510346`*^9}, 3.712338196236747*^9, 3.7155500714324493`*^9, {
   3.7197815549455805`*^9, 3.719781556238654*^9}, 3.719781723200204*^9, 
   3.7197817777033215`*^9, 3.7197818101651783`*^9, {3.7201270653066177`*^9, 
   3.720127090417054*^9}, {3.736379684852703*^9, 3.7363798350062914`*^9}, {
   3.73637990613836*^9, 3.7363799454506087`*^9}, {3.7363799785935044`*^9, 
   3.736380073130912*^9}, 3.736380192602745*^9, {3.736568304277763*^9, 
   3.7365683061888723`*^9}, {3.736626888875464*^9, 3.736626961308607*^9}, {
   3.7366270172238054`*^9, 3.7366270176868315`*^9}, {3.736627076079171*^9, 
   3.736627077381246*^9}, {3.745907347398342*^9, 3.7459073546387563`*^9}, {
   3.7460474887504616`*^9, 3.7460475292627783`*^9}, 3.7460475702621236`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
},
AutoGeneratedPackage->Automatic,
CellGrouping->Manual,
WindowSize->{1908, 946},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingStartingPageNumber->1,
PrintingPageRange->{1, 32000},
PageHeaders->{{
   Cell[
    TextData[{
      StyleBox[
       CounterBox["Page"], "PageNumber"], " ", "|", " ", 
      StyleBox[
       ValueBox["FileName"], "Header"]}], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, None}, {
   Cell[
    TextData[{
     "Rules", " ", "for", " ", "integrands", " ", "of", " ", "the", " ", 
      "form", " ", "(", "d", " ", "x", ")", "^", "m", " ", "(", "a", "+", "b",
       " ", "arctanh", "(", "c", " ", "x", "^", "n", ")", ")", "^", "p"}], 
    "Header", CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, 
   Cell[
    TextData[
     CounterBox["Page", CounterFunction :> Identity]], "Header", 
    CellMargins -> {{Inherited, 0}, {Inherited, Inherited}}]}},
PageFooters->{{None, None, None}, {None, None, None}},
PageHeaderLines->{False, False},
PageFooterLines->{False, False},
PrintingOptions->{"FacingPages"->False,
"FirstPageFace"->Right,
"FirstPageFooter"->False,
"FirstPageHeader"->False,
"Magnification"->1.,
"PaperOrientation"->"Landscape",
"PaperSize"->{774, 597},
"PrintCellBrackets"->False,
"PrintMultipleHorizontalPages"->False,
"PrintRegistrationMarks"->False,
"PrintingMargins"->{{28.8, 41.976}, {28.8, 28.8}}},
ShowSelection->True,
Magnification->1.399999976158142,
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 2164, 42, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[2734, 66, 4334, 74, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[7093, 144, 4319, 74, 65, "Subsubtitle"],
Cell[CellGroupData[{
Cell[11437, 222, 4259, 73, 449, "Subsubtitle"],
Cell[CellGroupData[{
Cell[15721, 299, 6012, 90, 433, "Subsubtitle"],
Cell[21736, 391, 56, 0, 2654, "Subsubsection"],
Cell[21795, 393, 772, 20, 2827, "Subsubsection"],
Cell[22570, 415, 878, 23, 2958, "Subsubsection"],
Cell[23451, 440, 613, 9, 1819, "Subsubsection"],
Cell[24067, 451, 2599, 68, 10855, "Subsubtitle"],
Cell[26669, 521, 771, 11, 2654, "Subsubsection"],
Cell[27443, 534, 1741, 42, 8115, "Code"],
Cell[29187, 578, 1861, 46, 8926, "Code"],
Cell[31051, 626, 89, 2, 2654, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[31177, 633, 6405, 102, 449, "Subsubtitle"],
Cell[37585, 737, 125, 1, 253, "Subsubsection"],
Cell[37713, 740, 630, 17, 289, "Subsubsection"],
Cell[38346, 759, 938, 18, 187, "Subsubsection"],
Cell[39287, 779, 2533, 64, 1051, "Subsubtitle"],
Cell[41823, 845, 771, 11, 253, "Subsubsection"],
Cell[42597, 858, 2761, 72, 961, "Code"],
Cell[45361, 932, 2855, 74, 1037, "Code"],
Cell[48219, 1008, 89, 2, 253, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[48357, 1016, 6902, 109, 475, "Subsubtitle"],
Cell[55262, 1127, 185, 2, 253, "Subsubsection"],
Cell[55450, 1131, 2457, 44, 316, "Subsubsection"],
Cell[57910, 1177, 1166, 20, 187, "Subsubsection"],
Cell[59079, 1199, 2188, 46, 475, "Subsubtitle"],
Cell[61270, 1247, 771, 11, 253, "Subsubsection"],
Cell[62044, 1260, 2448, 55, 771, "Code"],
Cell[64495, 1317, 2450, 55, 848, "Code"],
Cell[66948, 1374, 89, 2, 253, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[67086, 1382, 7599, 122, 53, "Subsubtitle"],
Cell[74688, 1506, 305, 4, 35, "Subsubsection"],
Cell[74996, 1512, 1327, 37, 46, "Subsubsection"],
Cell[76326, 1551, 2431, 45, 26, "Subsubsection"],
Cell[78760, 1598, 3458, 78, 68, "Subsubtitle"],
Cell[82221, 1678, 819, 11, 35, "Subsubsection"],
Cell[83043, 1691, 5412, 117, 129, "Code"],
Cell[88458, 1810, 5418, 117, 139, "Code"],
Cell[93879, 1929, 89, 2, 35, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[94005, 1936, 7117, 114, 53, "Subsubtitle"],
Cell[101125, 2052, 185, 2, 35, "Subsubsection"],
Cell[101313, 2056, 2688, 54, 45, "Subsubsection"],
Cell[104004, 2112, 1339, 26, 39, "Subsubsection"],
Cell[105346, 2140, 2239, 49, 59, "Subsubtitle"],
Cell[107588, 2191, 771, 11, 35, "Subsubsection"],
Cell[108362, 2204, 2901, 69, 104, "Code"],
Cell[111266, 2275, 2948, 70, 114, "Code"],
Cell[114217, 2347, 89, 2, 35, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[114343, 2354, 4673, 80, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[119041, 2438, 4699, 81, 103, "Subsubtitle"],
Cell[CellGroupData[{
Cell[123765, 2523, 7139, 114, 103, "Subsubtitle"],
Cell[130907, 2639, 124, 1, 67, "Subsubsection"],
Cell[131034, 2642, 586, 16, 71, "Subsubsection"],
Cell[131623, 2660, 746, 21, 86, "Subsubsection"],
Cell[132372, 2683, 1514, 27, 50, "Subsubsection"],
Cell[133889, 2712, 2535, 56, 138, "Subsubtitle"],
Cell[136427, 2770, 771, 11, 67, "Subsubsection"],
Cell[137201, 2783, 2699, 64, 202, "Code"],
Cell[139903, 2849, 2762, 68, 222, "Code"],
Cell[142668, 2919, 113, 2, 67, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[142818, 2926, 7625, 120, 103, "Subsubtitle"],
Cell[150446, 3048, 185, 2, 253, "Subsubsection"],
Cell[150634, 3052, 2902, 54, 207, "Subsubsection"],
Cell[153539, 3108, 1736, 33, 187, "Subsubsection"],
Cell[155278, 3143, 2628, 56, 393, "Subsubtitle"],
Cell[157909, 3201, 771, 11, 253, "Subsubsection"],
Cell[158683, 3214, 3407, 78, 961, "Code"],
Cell[162093, 3294, 3403, 78, 1037, "Code"],
Cell[165499, 3374, 89, 2, 253, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[165637, 3382, 6800, 109, 103, "Subsubtitle"],
Cell[172440, 3493, 180, 2, 67, "Subsubsection"],
Cell[172623, 3497, 632, 14, 55, "Subsubsection"],
Cell[173258, 3513, 1387, 25, 50, "Subsubsection"],
Cell[174648, 3540, 2230, 46, 125, "Subsubtitle"],
Cell[176881, 3588, 771, 11, 67, "Subsubsection"],
Cell[177655, 3601, 2492, 57, 202, "Code"],
Cell[180150, 3660, 2442, 56, 222, "Code"],
Cell[182595, 3718, 113, 2, 67, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[182757, 3726, 7380, 116, 53, "Subsubtitle"],
Cell[190140, 3844, 185, 2, 67, "Subsubsection"],
Cell[190328, 3848, 2902, 54, 55, "Subsubsection"],
Cell[193233, 3904, 1607, 30, 50, "Subsubsection"],
Cell[194843, 3936, 2578, 55, 103, "Subsubtitle"],
Cell[197424, 3993, 771, 11, 67, "Subsubsection"],
Cell[198198, 4006, 3311, 76, 251, "Code"],
Cell[201512, 4084, 3315, 76, 271, "Code"],
Cell[204830, 4162, 89, 2, 67, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[204968, 4170, 7420, 117, 53, "Subsubtitle"],
Cell[212391, 4289, 305, 4, 35, "Subsubsection"],
Cell[212699, 4295, 1422, 40, 47, "Subsubsection"],
Cell[214124, 4337, 2220, 37, 26, "Subsubsection"],
Cell[216347, 4376, 3467, 79, 68, "Subsubtitle"],
Cell[219817, 4457, 819, 11, 35, "Subsubsection"],
Cell[220639, 4470, 5067, 108, 129, "Code"],
Cell[225709, 4580, 5041, 108, 139, "Code"],
Cell[230753, 4690, 89, 2, 35, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[230879, 4697, 5925, 100, 53, "Subsubtitle"],
Cell[236807, 4799, 486, 7, 35, "Subsubsection"],
Cell[237296, 4808, 1950, 34, 40, "Subsubsection"],
Cell[239249, 4844, 3929, 62, 26, "Subsubsection"],
Cell[243181, 4908, 3031, 64, 64, "Subsubtitle"],
Cell[246215, 4974, 771, 11, 35, "Subsubsection"],
Cell[246989, 4987, 6036, 112, 104, "Code"],
Cell[253028, 5101, 5822, 109, 114, "Code"],
Cell[258853, 5212, 113, 2, 35, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[259003, 5219, 7086, 107, 53, "Subsubtitle"],
Cell[266092, 5328, 1554, 21, 253, "Subsubsection"],
Cell[267649, 5351, 2765, 55, 393, "Subsubtitle"],
Cell[270417, 5408, 771, 11, 253, "Subsubsection"],
Cell[271191, 5421, 3987, 75, 771, "Code"],
Cell[275181, 5498, 3989, 75, 848, "Code"],
Cell[279173, 5575, 89, 2, 253, "Subsubsection"]
}, Closed]]
}
]
*)

(* End of internal cache information *)